$/=$";map$_=s/-//-eval s/\d/-vec'&UTFg',$&,4/ger,($_=<>)x(getc.getc);print