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