while ( $line = <FH> )
{
       if ( $line =~ /$SearchString/ ... $line =~ /$SearchString/ )
       {
         "continue reading lines until I reach the same search string second time"
       }
}