Select Code to Download

while( my $var = <$fh> ) {
    mutate( $var );
    use( $var );
}

#! perl -slw
use strict;
...
c:\test>junk
ainamsiratnemhsilbatsesiditna
The qciuk bworn fox jpmus oevr the lzay dog