s/(.|^)\1*/(I,I,II,III,IV,V)[length$&].$1/eg,print for($/)x20