s/\A\s+|\s+\z//g for @strings;
# or
$string =~ /\A\s+|\s+\z//g;