my $re_e = qr[\w+ \# f]x;

print $re_e;
__END__
(?x-ism:\w+ \# f
)