Select Code to Download

#! perl -slw
use strict;
...
$_->join for @threads;
__END__
junk71 3.5GB >nul

package IOFan;
use strict;
...
fan{
    s[a][A]g;
} $ARGV[0];

 C:\test>perl -pe"s[a][A]" phrases.txt >nul