while ( <$fh> )
{
    if ( /$regex/ )
    {
        print "Match found on line $.\n";
        $match = 1;
    }
}