Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
substr $line, $pos[rand(@pos)], 3, 'man';
print "$line\n";

#!/usr/bin/perl -wl
use strict;
...
push @pos, pos() - 3 while /boy/g;
substr $_, $pos[rand @pos], 3, 'man';
print;