my $regexp = qr/\Qsome$thing\E/;
...
if (/$regexp/) {

##</code><code>##

my $regexp = quotemeta('some$thing');
...
if (/$regexp/) {