$resp =~ /<div>Общий заработок: <span>\$(\d+\.)(\d+)<\/span><\/div>/smi; my ($money) = $1 . $2;
my $str = '<div>Общий заработок: <span>$5.03</span></div>'; $str =~ /<span>(\$\d+\.\d+)<\/span>/; print $1;
my $str = '<div>Общий заработок: <span>$5.03</span></div>'; $str =~ /\<div\>Общий заработок: \<span\>\$(.+?)\<\/span\>\<\/div\>/; print $1."\n";
my $str = '<div>Общий заработок: <span>$5.03</span></div>';
<div>Общий заработок: <span>$5.03</span></div>
$str = 'код страницы с которой парсишь данные'; $str =~ /\<div\>Общий заработок: \<span\>\$(.+?)\<\/span\>\<\/div\>/g; print $1."\n";