sub validIP{ 
	use List::Util qw[ reduce ];
	$a = $b;
	$_[0] =~ m[^[\d\.]+$]
	and 2**32 > reduce{ 
		$a * 256 + ($b < 256 ? $b : 1e99) 
	} reverse split '\.', $_[0]
}