if ( ! /\Q$search\E/ ) { print "No Match found\n"; next; }