my @lines = <$fh>;                  # read whole file

foreach (0 .. $#lines)
{
    if ($lines[$_] =~ /$regex/)
    {
        printf "Match found on line %d\n", ($_ + 1);
        $match = 1;
    }
}