#!perl -pl
$_+=eval's/I[XV]$|V?I{0,3}$//>y/MDCLXVI/CLXVIM/;'x4