#!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";