my $string = EXPR; $string =~ s/^\s+|\s$//g;
[download]

(my $string = EXPR) =~ s/^\s+|\s$//g;
[download]

sub trim { my ($s) = @_; $s =~ s/^\s+|\s$//g; return $s; }
my $string = trim( EXPR );
[download]

s/^\s+|\s$//g for my $string = EXPR;
[download]

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

use List::MoreUtils qw( apply );
my $string = apply { s/^\s+|\s$//g } EXPR;
[download]

use Algorithm::Loops qw( Filter );
my $string = Filter { s/^\s+|\s$//g } EXPR;
[download]