use strict;
use warnings;

my $teststring = qq/Hello# World/;

my $regex1 = qr{\QHello# World\E}x;
my $regex2 = qr{Hello\#\ World}x;
my $regex3 = qr{$teststring}x;
my $regex4 = qr{\Q$teststring\E}x;

print "String is $teststring\n";
print "Regex1 is $regex1\n";
print "Regex2 is $regex2\n";
print "Regex3 is $regex3\n";
print "Regex4 is $regex4\n";

##</code><code>##

String is Hello# World
Regex1 is (?x-ism:Hello\#\ World\\E)
Regex2 is (?x-ism:Hello\#\ World)
Regex3 is (?x-ism:Hello# World
)
Regex4 is (?x-ism:Hello\#\ World)

##</code><code>##

$ perl8 regex.pl
String is Hello# World
Regex1 is (?x-ism:Hello\#\ World\\E
)
Regex2 is (?x-ism:Hello\#\ World
)
Regex3 is (?x-ism:Hello# World
)
Regex4 is (?x-ism:Hello\#\ World
)

##</code><code>##

$ perl10 regex.pl
String is Hello# World
Regex1 is (?x-ism:Hello\#\ World\\E)
Regex2 is (?x-ism:Hello\#\ World)
Regex3 is (?x-ism:Hello# World
)
Regex4 is (?x-ism:Hello\#\ World)