my $str = 'EUR 1,84';

# 1. Zahl ermitteln
my ($num) = $str =~ m/([\d,]+)/;

# 2. Komma in Punkt wandeln
$num =~ tr/,/./;

print $num;