my ($string) = map { my $s = $_; $s =~ s/^\s+|\s$//g; $s } EXPR;