use warnings;
use locale;

$m = "3.14e+9" + 0;
$n = "3,14e+9" + 0;

print "\$m is $m\n";
print "\$n is $n\n";

##</code><code>##

$m is 3140000000
$n is 3140000000

##</code><code>##

$m is 3140000000
$n is 3