Select Code to Download

/(fred|wilma) (flintstone) \2/ 
# match "fred" or "wilma" and put them in bucket 1
...
# equivelent to one of the following:
# /(fred) (flintstone) fred/
# /(wilma) (flintstone) wilma/

#!perl -l
print $_="the thing that that thing does";
...
$&=thing that           $1=thing      
$&=thing that           $1=thing      $2=that       
$&=thing that that      $1=that       $2=that