biyelunwen/99.scripts/trinity_utils/util/misc/remove_cntrl_chars.pl

#!/usr/bin/env perl

use strict;

while (<STDIN>) {
    tr/\t\n\000-\037\177-\377/\t\n  /d;
    print;
}