Select Code to Download

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}; }

my $str = "br>94.198.240.132:60988 asdfasdf 174.142.24.201:3128 asdfas
+dfasdf";

($p1, $p2, $p3 , $p4 , $p5) = ($str =~ /([0-9]{1,3}).([0-9]{1,3}).([0-
+9]{1,3}).([0-9]{1,3}):([0-9]{1,5})/g);
print "$p1 $p2 $p3 $p4 $p5 \n";