$string =~ tr/\n\000-\037/\n/d;