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

##</code><code>##

>perl -Dr 731397.pl 2>&1 | find "Compiling REx"
Compiling REx `a'
Compiling REx `b'
Compiling REx `a'