#!/usr/bin/perl

use LWP::Simple;

for (my $i = 1; $i < 25;$i++) {
  $i = sprintf "%02d", $i;
  my $content = get("http://www.samair.ru/proxy/proxy-$i.htm");
  die "Couldn't get it!" unless defined $content;

  foreach my $ok (split(/\n/, $content)) {
    #parse ip
    if ( $ok =~ m/proxy[1-9]{4}/ ) {
      $ok =~ m/(\d+)<[^>]+>\.<[^>]+>(\d+)\D+(\d+)\.(\d+):/;
      push(@ips, "$1.$2.$3.$4");
    }
    if ( $ok =~ m/^(\d+)/ ) {
      push(@ports, $1);
    }
  }
  foreach $ip (@ips) {
    print $ip;
    print ":$ports[$a]\n" ;
    $a++;
  }
  $a=0;
}