#!perl -p
substr($_,length($_)/2,0,$")