#!perl -paF
substr$_,@F/2,0,$"