Help for this page

Select Code to Download

Select or download this
```
s/^\s+//g, s/\s+$//g for $value;
```

Select or download this

sub trim {
   local $_ = @_ ? $_[0] : $_;
...
$trimmed = trim;                      # Trims $_ by default.
@trimmed = map trim, @untrimmed;      # Trim a whole list. (readable)
push(@trimmed, trim) for @untrimmed;  # Trim a whole list. (efficient)