Perl Module to validate if string is a proper currency