#!/usr/bin/perl -w

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #  
# final_4.pl
# 
# assignment: write a program which will read in an <html> file and
#             summarize the images that it links to
#           
#
# Author: John Berry
# Date: 12/11/03
#
# Version 0.01
#
# Note: This program assumes a few things about the html file being read:
#         1) image tags will be properly formated with quotes
#         2) no more than one <img> tag will appear on each line
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #  

use strict;

my $VERSION = "0.01";

# while a line exists in a file specified on the command line...
while(<>) {

  if($_ =~ /<\s*img.*?src="(.*?)".*?>/) {
    print("Image found: $1\n");
  }
}
