1N/A skip "qr// added in 5.005", 3 if $] < 5.005; 1N/A # 5.004 can't even see qr// or it pukes in compile. 1N/A ok(('foo' =~ /$r/), 'qr// good match'); 1N/A ok(('bar' !~ /$r/), 'qr// bad match'); 1N/A ok(('bar' =~ m/$r/), '"//" good match'); 1N/A ok(('foo' !~ m/$r/), '"//" bad match'); 1N/A ok(('f00' =~ m/$r/), '"//" good match'); 1N/A ok(('b4r' !~ m/$r/), '"//" bad match');