#!perl -p
y/wcpbygrx/2-9/;s/(\d|\b)\1*/"[@{[49-$1]}m".$"x length$&/ge;s/ /  /g