Hi, I guess you did something wrong to your title, please read How (Not) To Ask A Question and Before You Post ....

About your (quite unclear) question: If you need this for a finite number of static patterns an approach like

my $str = "phone";
my @regexes = (qr/..one/, qr/[gn]one/);

    foreach my $regexp (@regexes)
    {
        print "$regexp matched!\n" if $str =~ $regexp;
    }
[download]

could do.

So long,
Flexx