[tpm] currency deformatter

[Ilia]

I can't believe there doesn't seem to be a CPAN module to parse a
currency into a decimal.

The function I'm looking for should return a decimal based on various
input like:
$65,345.89
$65.345,89
$24,969.00(txincl.)
$24,969.00*

any extraneous data like "(txincl.)" should be removed. any spaces
should be removed.

Any takers?

ilia.