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