schau dir mal Locale::Currency::Format an, das liefert das Wahrungszeiebn und tauserder-dezipmalpunkt gleich mit:

perl -MLocale::Currency::Format -e 'print currency_format("EUR", 1234.567) ,"\n";'
1.234,57 EUR
perl -MLocale::Currency::Format -e 'print currency_format("EUR", 1234.564) ,"\n";'
1.234,56 EUR

Rolf