Help for this page
$new .= "\n" while s/.$/ $new .= $&; '' /gem;
$ time perl -e' use Data::Dumper; ... user 0m3.216s sys 0m9.332s