That's a tough thing to specify. You have to "inchworm":

my $str = "...";
if ($str =~ /^(?:(?!odd).)*weird/s) {
  # we found "weird" without looking at odd
}
[download]

-- Randal L. Schwartz, Perl hacker