in reply to Re^2: How to define a list of regular expressions?
in thread How to define a list of regular expressions?

Instead of
my $regex = qr/shift @regexes/;
do just
my $regex = shift @regexes;