Select Code to Download

andromeda:davidj perl_test > cat f.txt
^this^
...
^test^
^david#jenkins^
^ cinea#jenkins ^

andromeda:davidj perl_test > cat out.txt
^this^
...
^test^
^ddaavviidd#jjeennkkiinnss^
^  cciinneeaa#jjeennkkiinnss  ^

#!/usr/bin/perl

...
}
close(FILE);
close(OUT);

#!/usr/bin/perl

...
}
close(FILE);
close(OUT);

andromeda:davidj perl_test > perl test.pl
              Rate 2nd string   In place
2nd string 28969/s         --       -17%
In place   35112/s        21%         --