Select Code to Download

my $thing = 'THING';
my $regexp = "some$thing";  # now $regexp is 'someTHING'

#!/usr/bin/perl -W
use strict;

...
test ( quotemeta 'some$thing2' );
test ( quotemeta "some$thing2" );