my $str = 'br>94.198.240.132:60988 asdfasdf 174.142.24.201:3128 asdfas
+dfasdf';
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};
   }
[download]

Finally got this it work... It was bugging me :)

Thanks everyone for the help. sorry for my stupidity missing the embedded code.