Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $strings[$i] = join ('', @tmp);
    }
print "@strings\n";

#!/usr/bin/perl -w
use strict;
...
    substr($strings[$i],$pos,1) =~ tr/jcwn/cjnw/;
    }    
print "@strings\n";