use FileHandle;
my $fh = new FileHandle;
open($fh, "<", $file) or die "Unable to open file '$file' ($!)\n";
while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /(<IMG.*?BR>)...(Figure\d*)/i) {
        # You got a match
    }
}