#!/usr/local/bin/perl use strict; use warnings; print "IP\t\tStatus\n"; print "-" x 25; print "\n"; while(){ chomp; next unless $_ =~ /^<\/HEAD>.*/i; #skip un-interesting lines. #my ($ip, $status) = $_=~ m/(\d+\.\d+\.\d+\.\d+)\s+:\s+(\w+)/; my ($ip, $status) = $_=~ m/([0-9\.]+)\s+:\s+(\w+)/; print "$ip\t $status\n"; } __DATA__

Set Node to Monitored
10.10.10.10 : Minor

Set Node to Monitored
10.10.10.9 : Major

Set Node to Monitored
10.10.10.1 : Major

Set Node to Monitored 10.10.10.10 : Minor

Set Node to Monitored 10.10.10.9 : Major

Set Node to Monitored 10.10.10.1 : Major

Set Node to Monitored
10.10.10.10 : Minor

Set Node to Monitored
10.10.10.9 : Major

Set Node to Monitored
10.10.10.1 : Major