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