Select Code to Download

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

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

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

}}

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

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.

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

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