sub driver{
       my $pattern = shift;
       my $modifiers = shift;

       while(<LOG>){
              if ($_ =~ /$pattern/$modifiers){
                           print $_;
               }
               close LOG;
        }
}