Help for this page

Select Code to Download


  1. or download this
    perl -e "$s='OOO....MMMM..IIIII';$s=~s/(.)(\.+)/$1.$1 x length($2)/eg;
+print $s,$/;"
#            OOOOOOOMMMMMMIIIII
  2. or download this
    perl -e "$s='JJ..A....PPPP..HHHH...';$s=~s/(.)(\.+)/$1.$1 x length($2)
+/eg;print $s,$/;"
#            JJJJAAAAAPPPPPPHHHHHHH