$\ = "\n";
while (<>) {
    s/[^[:print:]]//g;
    print;
}