s/^\s+//, s/\s+$// for $str;