use strict; use warnings; use Data::Dumper; use HTML::TreeBuilder; my $h = HTML::TreeBuilder->new; $h->parse_content( do{ local $/; } ); my (@tmp,@tds); for (map $_->as_HTML, $h->look_down( class => qr/Alt(Warning|Error)/ )) { if (/^
  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%