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