my $h = HTML::TreeBuilder->new; $h->parse_file($tsmin); my @warnings = $h->look_down( _tag => "td", class => qr/Alt(Warning|Error)/ ); foreach my $warning (@warnings) { my @filtered = $warning->as_HTML( ); say "dump of my @filtered"; say $fh2 @filtered; } #### TSM Operational Reporting
Daily Report TSM 24 hour Report for TSM1TSG generated at 2015-05-12 09:00:26 on DIRECTOR covering 2015-05-11 09:00:26 to 2015-05-12 09:00:25
Server name: TSM1T, platform: Linux/ppc64, version: 6.3.4.200, date/time: 05/12/2015 09:00:01

Client Schedules
  Status Results Schedule Start Actual Start Schedule Name Node Name Domain Name
Completed Successful 2015-05-11-17.00 2015-05-11-17.10 DAILYBACKUP_5PM ServerA ST10_DOMAIN
Missed 2015-05-11-18.00 DAILYBACKUP_6PM ServerB ST10_DOMAIN
Missed 2015-05-11-18.00 NJDLYBACKUP_6PM ServerC ST13_DOMAIN
QATSWAS85 37899 104,113 617 0 0 0 25 13 251.30 MB 00:00:58 4,378.98 0%
ServerD 38048 31,461 51 0 0 0 2 2 24.14 MB 00:00:12 1,946.00 0%

####

Missed 2015-05-11-18.00 DAILYBACKUP_6PM ServerB ST10_DOMAIN Missed 2015-05-11-18.00 NJDLYBACKUP_6PM ServerC ST13_DOMAIN