my $digit = qr/\d/; foo($digit);  # Compiles once
my $digit = '\\d';  foo($digit);  # Compiles any number of times