use warnings;
use strict;

use HTML::TokeParser::Simple;

my $file = "E:\\Documents and Settings\\Richard Lamb\\My Documents\\HTMLworkspace\\HTML practice\\My First Page!\\firsttest\.html";

my $parser = HTML::TokeParserSimple->new($file)
    or die "Can't open $file: $!\n";

while ( my $token = $p->get_token ) {
    next if $token->is_tag('img');
    print $token->as_is;
}