#!/usr/bin/perl
sub trim_start {
for (my $s = @_ ? $_[0] : $_) {
s/\A\s+//m;
return $_;
}
}
sub trim_end {
for (my $s = @_ ? $_[0] : $_) {
s/\s+\z//m;
return $_;
}
}
{
my $test = 'abc , def';
$test =~ /([\s\w]+),([\s\w]+)/;
my @words = map trim_start,
map trim_end,
"$1", "$2";
}
####
print(trim_start(trim_end($var)), "\n");
##
##
my @trimed = map trim_start, map trim_end, @untrimmed;