#!perl -p
s/ //;s/V/III/g;s;I{5}|I\KIII;V