$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";
}