$var = "     Smart   Way      ";
$val = join (" ",split " ",$val);
print "var:  $var\n";  # $var now "Smart Way", internal spaces gone.