for my $re (qw( a a a b b a )) {
   '' =~ /$re/;
}