Select Code to Download

#!/usr/bin/perl
use strict;
...
   $out =~ s/fred/larry/gi;
   print OUT;
}

while (<IN>) {
   $out =~ s/fred/larry/gi;
   print OUT;
}