Select Code to Download

my $newstring = do {
    local $_ = $string;
    my @foo;
    push @foo, substr($_, 0, 64, '') . "\n" while length;
    join '', @foo;
}