/((fred|wilma) (flintstone) \2/ could be fred flinstone fred
/((fred|wilma) (flintstone) \1/ could be fred flinstone fred flinstone

##</code><code>##

 if ($wilma =~ /(\w+)/) {
print "Wilma's word was $1"; }