$\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print

##</code><code>##

$\+=($n=IXCMVLD=~$_*"1E@-"%9995)-$\%$n*2for<>=~/./g;print

##</code><code>##

$\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print
n=1;$.+=n/2-n%n=10**(494254%C/9)%4999while C=getc;p$.

##</code><code>##

t=0;t+=(n=10**I%9995)-t%n*2while I="IXCMVLD"=~/#{getc.chr}/;p t
t=0;t+=(n=10**I%9995)-t%n*2while I="IXCMVLD".index(getc);p t