You can do that with a negative look-ahead. See perlre for details.

But it's much easier to simply use a negated match,  if ($word !~ /Select/) { ... }

Update: fixed to actually use negated regex match. Thanks salva and anonmonk!