my $string = q{the quick black fox};
my $substring = q{brown};
if ( $string =~ m{\A(?!.*\Q$substring\E).*fox} )
{
    print qq{Found a non-$substring fox\n};
}
else
{
    print qq{Match failed, $substring seen\n};
}