Help for this page

Select Code to Download

Select or download this

$c = substr($_,2,1);
$pat = "\[^$c\]{2}$c\[^$c\]{2}$c\[^$c\]{2}";
print "yup" if /$pat/