script starts
...
...
...
While(25k to 50k records from DB)
{
      my $field = '';
      $field = $h->{'HTML_FIELD'} if(defined($h->{'HTML_FIELD'}));
      $field = &html_parsing($field) if($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;
}
...
...
...
script ends

##</code><code>##

$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>);