Perl : Numeric Range Pattern Matching (IP)

$ip=~/(\d+)\.(\d+)\.(\d+)\.(\

d+)/;
if ($1>=0 && $1<=255 && $2>=0 && $2<=255 && $3>=0 && $3<=255 && $4>=0
&& $4<=255)
{
}

OR


$ip=~/\b((2[0-5][0-5]\.)|(1?[0-9]?[0-9]\.)){3}((2[0-5][0-5])|(1?[0-9]?[0-9]))\b/