my $foo = " 12345 \t\n\t  abcde";
$foo = join " ", split( " ", $foo);
print $foo, $/;
[download]

That's known as magical split.

After Compline,
Zaxo