echo 1944 | perl -pe 'tr/IVXLC/XLCDM/, s/\d/qw(IX VIII VII VI V IV III
+ II I)[9-$&]/e while /\d/'
[download]

hehehe