#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => 'ХУЙ !! ПИЗДА !! НОВЫЙ ГОД !!', timeout => 15);
for (1 .. 3) {
my $req = $ua->get("http://upyachka.ru/$_/")->content;
my @upmans = $req =~ m,<SPAN class="user-logout" noinfo="true">(.+?)</SPAN>,ig;
print Dumper(@upmans);
sleep 5;
}