Select Code to Download

use strict;    # Don't comment it out.
open RERUN, "rerunlrg" or die "Couldn't open input file.\n$!";
...
    print "Matched:\n$1\n\n" if $line =~ m/^(\S+\s+\S+)/;
}
close RERUN;