while ( $line = <FH> )
{
       if ( $line =~ /$SearchString/)
       {
             while(($nextline=<FH>) and ($nextline=~/$SearchString/))
             {
                 push @temp $nextline;
             } #close of inner while
        } #close of if
} #close of while