Select Code to Download

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