#!perl -pl
s/\B\W/substr$p,pos,"1$'5"/eg;$p=$_