#!perl -p $c="xrgnbacwX ";s@([$c])\1*@"[4".index($c,$1)."m".$"x2x length$&@ge;s/$//;s/^.49m//