use XML::Simple qw(XMLin); use Data::Dumper; my($xml) = XMLin(scalar(`nmap -oX - -sP 10.0.0.0-50`)); print(Dumper(\$xml));