Select Code to Download

my @ip_addrs = map /\(([^)]*)\)/, qx( /usr/sbin/traceroute $target);

#!/usr/bin/perl -w
use CGI qw(:standard);
...
   #Re-splits $target for octet analysis
   @first = split(/\./,$target);
}