Parse nmap scan data with Perl