my @strings = qw(
    2,300
    2.54xyz123
    2e32abc3
    2.34,23
);

for (@strings) {
    print "$_ => ", 0+$_, "\n";
}

##</code><code>##

2,300 => 2
2.54xyz123 => 2.54
2e32abc3 => 2e+32
2.34,23 => 2.34