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