#!/usr/bin/perl
use strict;
use warnings;
use HTML::Parser;
                                                                                
my $data='abcd efgh<img src="http://test.com/image.gif">ijklmn';
my $parser = HTML::Parser->new( text_h => [ sub { $_[0]->{_data} .= $_[1]; },"self,dtext" ],
                                start_document_h => [ sub { $_[0]->{_data} = '';}, "self"]);
$parser->parse($data);
                                                                                
print $parser->{_data};