if ($_ =~ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5}:/) {print MYFILE2 "$_ \n";}

##</code><code>##

if ($_ =~ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5}:/) {print MYFILE2 "$_ \n";}

##</code><code>##

while <$_> {
   while ([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5}/g) {
   @iparray[$iparraycounter] = $1;
   $iparraycounter++;

}}

##</code><code>##

my $str = "br>94.198.240.132:60988 asdfasdf 174.142.24.201:3128 asdfasdfasdf";
 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};
   }

##</code><code>##

Invalid [] range "0-" in regex; marked by <-- HERE in m/ ([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-<-- HERE 
+9]{1,3}:[0-9]{1,5}) / at C:\CC\BUY\ptest.pl line 43.

##</code><code>##

$str =~ m{ [0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-
+9]{1,3}:[0-9]{1,5} }xmsg)

##</code><code>##

$str =~ m{ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-
+9]{1,3}:[0-9]{1,5}/ }xmsg)