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