WhiteSpace - Map, search replace, split

[Paul Kraus]

Why does this work....
my $date = 'one   |  two   |three      |';
my @record = map ( whitespace($_), (split /\|/,$_) );
sub whitespace {
  my $string = shift;
  $string =~ s/^\s+|\s+$//g;
  return $string;
}

but this does not ....
my @record = map ( $_=~ s/^\s+|\s+$//g,(split /\|/,$_) );

Paul

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>