Select Code to Download

#!/usr/bin/perl -w;
open IN, "file.in" or die "file.in: $!";
open OUT, ">file.out" or die ">file.out: $!"
...
}
close IN;
close OUT;

#!/usr/bin/perl -ni.bak
if ($_ =~ /^\d/) {
  print $_;
}