Select Code to Download

#!/usr/bin/perl -w
use strict;
my $weeping;
...
    print STDERR "=$theParam\n";
    return $theParam;
}

dofunc(AABBCC)
=AABBCD
AABBCD
dofunc(AAAABBBBCCCC)
=AAAABBBBCCCD
AAAABBBBCCCD