Help for this page
my @strings = qw( 2,300 ... for (@strings) { print "$_ => ", 0+$_, "\n"; }
2,300 => 2 2.54xyz123 => 2.54 2e32abc3 => 2e+32 2.34,23 => 2.34