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