my $i = 1234e3;
my $j = "1234e3";

print join("\n",$i, $j, 0+$i, 0+$j);