use strict;
use warnings;
use Test::More qw(no_plan);

like('a',qr/a/); #passes
like('(',qr/\Q(\E/); #passes -- \Q\E works for parenthesis and most special characters
like('asdf$',qr/\Qasdf$\E/); #no -- but not for the dollar sign
like('asdf$',qr/\Qasdf\$\E/); #no
like('asdf$',qr/asdf$/); #no
like('asdf$',qr/\$/); #passes -- you have to backslash the dollar

##</code><code>##

use strict;
use warnings;
use Test::More qw(no_plan);

like('asdf$', quotemeta('asdf$')); #fails
my $re = quotemeta('asdf$'); 
like('asdf$', qr/$re/); #passes
like('asdf$', qr/@{[ quotemeta('asdf$') ]}/); #passes