my $h = HTML::TreeBuilder->new; $h->parse_file($tsmin); my @warnings = $h->look_down( class => qr/Alt(Warning|Error)/ ); foreach my $node (@warnings) { my @filtered = $node->as_HTML( ); say "dump of my @filtered"; # say $fh2 @filtered; } #### dump of my < td align="left" class="AltWarning" height="17">Missed2015-05-11-18.00NJDLYBACKUP_6PMSERVER1< /td>ST13_DOMAIN dump of my dump of my Missed dump of my dump of my 2015-05-11-18.00 dump of my dump of my 6PM dump of my SERVER1 dump of my DOMAINA