$_ = do { local $/; <> };
s/[^\t\n\r -~]+/\n/g;
print;