Help for this page
#! perl -l ... print " 1 : ", $s =~ $m ? "YES" : "NO?"; print " 2 : ", $s =~ qr/^def$/xms ? "YES" : "NO?"; print " 3 : ", $s =~ qr/def/xms ? "YES" : "NO?";
$ perl5.8.8 sq.pl Match? "abc ... 1 : NO? 2 : NO? 3 : YES