#! perl -slw
use strict;
#use re 'debug';

my $re_b = qr[\w+ #]x;
my $re_c = qr[\w+ [#] ]x;
my $re_d = qr[\w+ \Q#\E ]x;

print $re_b if  "foo" =~ $re_b;   #matches /\w/
print $re_c if  "foo#" =~ $re_c;   #matches /\w+#/
print $re_d if  "fldkdafds#\\E " =~ $re_d; #matches /\w+#\\E /;