$_= " This  is \t a test\cM\n";
tr/ \t\f\r\n/_/s;
print;
__END__
prints "_This_is_a_test_"