$new .= "\n" while s/.$/ $new .= $&; '' /gem;