my $str = 'BIG BIG DATA FILE';
 if (my @matches = $str =~ m{ ([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5}) }xmsg) {
   print qq{matched @matches};
   }