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