#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw' dd ';
use HTML::Strip;
my $field = qq(<p>With a solid oak top and white painted legs, the New England Side Table compliments any interior design scheme. This stylish side table comprises a magazine shelf and fluted detailing to the legs.</p> <p>The perfect partner to our New England Coffee Table.</p> <p><br />H43cm L51cm W41cm</p>);
dd length $field;
$field = html_parsing( $field );
dd length $field;
sub html_parsing
{
        my $raw_html = shift;
        my $hs = HTML::Strip->new();
        my $string = $hs->parse( $raw_html );
        ## Problem: here the $string is becoming blank after parsing
        $hs->eof;

        return $string;
}
__END__
294
267