Select Code to Download

s/^\s+//g, s/\s+$//g for $value;

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)