#! /usr/local/bin/perl
      #use strict;
       open(rerun,"rerunlrg")
       while(my $pattern=<rerun>){
        if(my $pattern=~ m/^(\w\s+\w\s).*?/){
        print "matched\n";
        print "$1\n";
        }