sub CheckForImageReferencesInFiles {
    my $filename = $_;
    my $line = "";
   
    open hFile, $filename or die "Failed to open $filename\n";
    while ($line = <hFile>) {
        chomp($line);
        if ($line =~ m/src="([a-zA-Z0-9\_\-\/])+\.(gif|jp[e]?g|bmp)"/i
+) {
            $line = $&;
            ReportFileFound($saved_name, $line, $., 1);
        }
    }
    close hFile;
}
[download]