Select Code to Download

my $regexp = qr/some$.thing/sm; # or even qr'some$\nthing'm
local $_ = "some\nthing";
print " matched $& " if /$regexp/;