my $string = "Field1:  one";
foreach my $reobj ( qr/Field1/, qr/Field2/, qr/Field3/) {
    print "$1\n" if $string =~ m/$reobj:  (\w{3})/;
}

##</code><code>##

my $string = "Field1:  one";
my @regexobjs = ( qr/Field1/, qr/Field2/, qr/Field3/ );
foreach my $reobj ( @regexobjs ) {
# The rest is the same as above.....