Well done. That's interesting. I've been bitten by that before but not in Perl.

    perl -le 'print 2 * "21.654"' # 43.308
    perl -le 'print 2 * "21,654"' # 42
[download]

--
John.