#!/usr/bin/perl -w
use strict;
my @patterns = qw/ ^foo
                   bar
                   x.*?z
                 /;
@patterns = map{qr/$_/}@patterns;
my $input = 'fooxbaz';
foreach my $re (@patterns){
    print "$re\n" if $input =~ /$re/;
}