Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...


# -----[ Fini ]-------------------------------------------------------
+----------

Select or download this

D:\PerlMonks>remap-nodebug.pl
Original String:  ibcdhjfifhiabahgejedgihgacchdijaedgihcifjejfghecgdae
+cjdaibcgacaegjcbegghfeibbfdhhjbjbdadbacfdffbijfe
   Final string:  1234422324112143141433431334412114334312412234133411
+344132331311323213342112224444222414213242223421

D:\PerlMonks>