>perl -Mre=debug -e"@regexps = qw( foo bar baz ); @strings = qw( abc def ghi ); for $string (@strings) { for $regexp (@regexps) { $string =~ /$regexp/ } }" 2>&1 | find "Compiling"
Compiling REx `foo'
Compiling REx `bar'
Compiling REx `baz'
Compiling REx `foo'
Compiling REx `bar'
Compiling REx `baz'
Compiling REx `foo'
Compiling REx `bar'
Compiling REx `baz'