in reply to Need a regex..

if (index($str, 'Select') < 0) { ... }

In Section Seekers of Perl Wisdom