print "Enter IP Address:";
chop(my $ip = <STDIN>);
my $parsed = join'.', unpack "C4", pack "C4", split/\./, $ip;
if ($parsed eq $ip) {
    print "yes match $parsed\n";
} else {
    print "no match: parsed $parsed <> input $ip\n";
}