note
gellyfish
<p>Personally I would go with [cpan://HTML::Parser]:
<code>
#!/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};
</code>
</p><p>/J\</p>
428015
428015