qw(IV XL CD V L D IX XC CM X C M) #### (IV,XL,CD,V,L,D,IX,XC,CM,X,C,M) #### #!perl -pl @%{@;}=0..map+s!.!y$IVCXL426(-:$XLMCDIVX$dfor$;[$_].=5x$&*8%29628!eg,!y/m/-/..3999;s/\w+/+$%{$&}/g;$_=$;[eval]