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