[PERL] Regexp и socket

use Socket;
use Cwd;
use HTTP::Request::Common;
sub host2ip
{
    my $host = shift;
    return inet_aton($host) if /(\d+.){3}\d+/;
    return gethostbyname($host);
}

$dir = getcwd;
opendir D, $dir or die "cant open dir: $!";
@flist = grep { !/^\./ } readdir D;
for (@flist)
{
    next if (-d or /getnew/i or /temp/ or /my/);
    /\[(.+)\]\s(.+)\s-\s(\d*)(.+)/;
    $team = $1;
    $name = $2;
    if ($episode < $3) {$episode = $3};
    #last;                            # ========= тут
}
$episode++;
closedir D;

print "Trying to get:\t\[$team\] $name - $episode\n";

$addr = gethostbyname('www.nyaatorrents.org');
$paddr = sockaddr_in (80, $addr);
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(tcp)) or die "cant make socket because $!";
connect (SOCK, $paddr) or die "cant connect $!";
send SOCK, HTTP::Request->new(GET => "http:\/\/www\.nyaatorrents\.org\/\?page=search\&term=$name\&cat=0_0")->as_string(), 0;

while(<SOCK>)
{
    if (/href\s*=\s*\"([^\&]+)\&amp;([^\&]+)\"\stitle=\"\[$team\]\s$name\s-\s$episode/)    # и тут
    {
        $urlsub1 = $1;
        $urlsub2 = $2;
        #shutdown SOCK, 0;
        last;
    }
}
$URL="$urlsub1\&$urlsub2";
print "URL:\t\t$URL\n";
close SOCK;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(tcp)) or die "cant make socket because $!";
connect (SOCK, $paddr) or die "cant connect $!";
#=pod
#unlink "temp.html" or die "cant delete temp file temp.html: $!\ndelete it manually -_-";
open F, ">temp.html" or die "cant create/open: $!\n";
send SOCK, HTTP::Request->new(GET => "$URL")->as_string(), 0;
while(<SOCK>)
{
    print F $_;
}
close F;
close SOCK;
#=cut

Trying to get:  [Leopard-Raws] To Aru Kagaku no Railgun - 22
URL:            http://www.nyaatorrents.org/?page=torrentinfo&tid=117395