for ( my $i = 0; $i < length($string); $i += 60 ) {
    print substr($string, $i, 60), "\n";
} # for

# oder: (edit)
print join "\n", map substr($string,$_*60,60), 0 .. length($string) / 60;