#!perl -p
$n=y///c>>1;s/.{$n}/$& /