Select Code to Download

#!/usr/local/bin/perl

...
  print $_;
}
close (FILE1);

foo
bar
here
there

s/f/z/;
s/h/y/;
s/there/where/;