sub l { $_=$_[0]; s/IV/ /; s/IX/ /; s/XL/ /; s/XC/ /; s/CD/ /; s/CM/ /; s/I/ /g; s/V/ /g; s/X/ /g; s/C/ /g; s/L/ /g; s/M/ /g; s/D/ /g; length; }