Select Code to Download

my $xp = XML::XPath->new(xml => $fpdomaininfo );
my $nodeset = $xp->find('//cidr-map');
...
        # this prints nice list of ipaddresses 
        # 127.0.0.1:198.168.1.1:198.168.1.2
        print "<hr><hr>" . __LINE__ . "<br>" . $ips_as_string . "<hr><
+hr>\n";

        my @ips = split /:/, $ips_as_string;

...
        # 589
        # $VAR1 = '
        print "<hr><hr>" . __LINE__ . "<br>" . Dumper( @ips ) . "<hr><
+hr>\n";

589
$VAR1 = '

    # this prints crap if XML in it !!!
        for my $ip ( @ips ) {   print "$ip<br>"; }