use strict;
use warnings;

my $pat1 = qr/(?<pat1>field)/;
my $pat2 = qr/(?<pat2>f.i.e.l.d)/;
my $pat3 = qr/(?<pat3>the)/;
my $str  = "There are many soccer fields in England - f1i2e3l4d";

while ( $str =~ m/($pat1|$pat2|$pat3)/ig ) {
  print "Found '$1' from pattern ", keys %+, "\n";
}