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