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

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