Help for this page

Select Code to Download


  1. or download this
    regex2 => sub {
    my $tmp = $val;
    $val = join (" ",split " ",$val);
  },
  2. or download this
    $var = "     Smart   Way      ";
$val = join (" ",split " ",$val);
print "var:  $var\n";  # $var now "Smart Way", internal spaces gone.