#!perl

$line = 
'               <p>             
                        Aktuelles Guthaben: <br /> 
                        <span class="price">0,01&nbsp;&euro;</span>
                </p>
';
        my ($preis) = $line =~ m/Aktuelles Guthaben:\s<br\s+\/>\s+<span class=\"price\">([,0-9]+)&nbsp\;&euro\;<\/span>/im;
        print $preis, "\n";