Roman to Arabic Numerals (and back) in Perl