Sure,

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

That's just one of many ways.

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