Perl regular expression to match an IP address

Question

I have written this code, but it does not work. Can someone point out the issue?

sub match_ip()
{
  my $ip = \"The IP address is 216.108.225.236:60099\";
  i         


        

Answer 1

Change {1-3} to {1,3} same for {1-5} -> {1,5}