print "Valid IP\n" if 4 == grep { /^\d+$/ and $_ < 256 } split /\./, $ip;

##</code><code>##

my regex octet {(\d ** 1..3) <?{0 <= $0 <= 255 }> }
my regex ip {^ <octet> ** 4 % '.' $}