Select Code to Download

my $foo = qr/[.,:;] ?| /;
print $foo, "\n";
...

my $baz = qr{ $bar{42} f[eio]e }xms;
print $baz, "\n";