my ($value) = $money = =~ m/Euro:<\/strong> (\d+(?:,\d+)?)/;
print $value;