my $str = "br>94.198.240.132:60988 asdfasdf 174.142.24.201:3128 asdfasdfasdf";

($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";