<>=~/ ../s;$_=s/-//-eval s/./-vec'&UTFg',$&,4/ger for($_=$`)x$&;print