Select Code to Download

# Standard setup stuff and file handle opening goes here
while (<THE_FILE_HANDLE>) {
    s#pattern#replacement#;
}

#!/usr/bin/perl
use strict;
...
   s/foo/bar/g;
   print $OUFH $_;
}