#!perl -wl
use strict;
my $regexp = 'some$thing';
my $thing = 'THING';

my $target = 'this is some$thing strange.';

print $regexp;
print $target;

print '$target =~ /$regexp/ ', $target =~ /$regexp/;
print '$target =~ /\Q$regexp\E/ ', $target =~ /\Q$regexp\E/;
print '$target =~ /some\$thing/ ', $target =~ /some\$thing/;
print '$target =~ /some$/ ', $target =~ /some$/;
my $eol_in_the_middle = qr/some$(?:thing)/;
print 'eol_in_the_middle ',$eol_in_the_middle;
print '$target =~ /$eol_in_the_middle/ ',$target =~ /$eol_in_the_middle/;

##</code><code>##


my $eol_in_the_middle2 = qr/some$(?:\s*thing)/;
my $target2 = "this is some\nthing strange.";
print '$target2 =~ /$eol_in_the_middle2/ ',$target2 =~ /$eol_in_the_middle2/sm;