$_ = "cat dog";

print 'match' if /^(?!cat)/;
print 'no match' unless /^(?!cat)/;