my $pat_id;
our $REGMARK;

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

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