$string =~ s/([^\n]{80})/$1\n/mg;