Select Code to Download

#!perl -wl
use strict;
...
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_middl
+e/;

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_mi
+ddle2/sm;