$_ = "   12345  \n \t    ab\t\t\tcd \n  ";
print "Before: |$_|\n";
tr/ \t\012\015/ /s;
print "After: |$_|\n";