Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my $orig = 'AABBCCDDEEFFGGHH';
...
 print qq{'$new'};
"
'aabbCCDdEEFfgGHh'
  2. or download this
    >perl -wMstrict -le
"my $orig = 'fEEfoobarFIEFooBarFoEfOoBaRfUM';
...
 print qq{'$new'};
"
'feeFooBarfieFooBarfoeFooBarfum'