print join "\n", $string =~ /(.{1,60})/g; #edit: bösen fehler entfernt {60} => {1,60}