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

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