Неверная обработка поля "сумма" при генерации счет

[carcass]

В случае если поле "сумма" имеет вид 100.5 (с одной цифрой после точки), конструкция
$second =~ s/(.*)(\.)(\d\d)(.*)/$3/;
в функции int2ml работает неверно.

Поменял на такое:

$second =~ s/(.*)(\.)(\d\d?)(.*)/$3/;
if (length $second < 2 ) {
$second .= "0";
}

[~AsmodeuS~]

спасибо