$pat1="field"; $pat2="f.i.e.l.d"; $pat3="the"; $str = "There are many soccer fields in England - f1i2e3l4d"; while($str =~ m/($pat1|$pat2|$pat3)/ig){ print "Found '$1' from pattern ??\n"; } #### Found 'The' from pattern ?? Found 'field' from pattern ?? Found 'f1i2e3l4d' from pattern ?? #### Found 'The' from pattern 'the' Found 'field' from pattern 'field' Found 'f1i2e3l4d' from pattern 'f.i.e.l.d'