The most efficient way to squash (convert multiple characters to a single instance) is to use tr///s:
$line =~ tr/ /\t/s;
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.