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%

##

$VAR1 = [
  [
    '',
    'Missed',
    '',
    '2015-05-11-18.00',
    '',
    'DAILYBACKUP_6PM',
    'ServerB',
    'ST10_DOMAIN'
  ],
  [
    '',
    'Missed',
    '',
    '2015-05-11-18.00',
    '',
    'NJDLYBACKUP_6PM',
    'ServerC',
    'ST13_DOMAIN'
  ]
];

##

##