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

$string =~ s/(.{1,64})/$1\n/g;