regex2 => sub {
    my $tmp = $val;
    $val = join (" ",split " ",$val);
  },

##</code><code>##

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