#!perl -p $c="xrgnbacwX ";s@([$c])\1*@"\x1b[4".index($c,$1)."m".$"x2x length$&@ge;s/$/\x1b[49m/;s/^\x1b.49m//
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page