re clarity I probably agree re not understanding... I mean the x y and z on the right in Dave's solution print "all\n" if 3 == grep {$var =~ m/$_/} qw(x y z); ie if you want another word you just pop it in after z...without typing anything else. Thank's for your help