#!perl -p y/wcpbygrx/2-9/;s/(\d|\b)\1*/"\x1b[@{[49-$1]}m".$"x length$&/ge;s/ / /g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page