Регулярное выражение Perl для соответствия IP-адресу

Я написал этот код, но он не работает. Может ли кто-нибудь указать на проблему?

sub match_ip()
{
  my $ip = "The IP address is 216.108.225.236:60099";
  if($ip =~ /(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{1-3}\:\d{1-5})/)
  {
      print "$1\n";
  }
}

РЕДАКТИРОВАТЬ:Я хотел просто извлечь IP-адрес, а не выполнять какую-либо проверку.