Select Code to Download

#! perl -slw
use strict;
...
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 /;