my $str = "odd an very weird receiver";

if ($str =~ /(?<!odd)weird/)
{
    print "hit";
}