sub f { ($_) = @_; eval join '/g; s/' , qw{# IV|IX|XL|XC|CD|CM/-$& M/C0 C/X0 X/I0 I/+1 D/L0 L/V0 V/+5 //}; eval}