$_ = 'text unsubtext did not text subscribe text';print "OK" if /(?!.*did\s+not)(?!.*unsub).*subscribe/;
Standard input is empty
OK
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!