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