$qr = qr/[spectal]{9}/; # This was compiled during BEGIN{} and has no runtime effect.

$data =~ $qr;
# match()
#    regcomp() # Re-use the expression
#       regcreset

$data =~ m/$qr/;
# match()
#    regcomp() # Re-use the expression
#       regcreset