If you do decide to use nmap's output, check out its spiffy XML output:

use XML::Simple qw(XMLin);
use Data::Dumper;

my($xml) = XMLin(scalar(`nmap -oX - -sP 10.0.0.0-50`));
print(Dumper(\$xml));
[download]

Staunch