Select Code to Download

sub qre (&;*) {
    my $re = shift->();
...
print "$regex\n";
__END__

sub qre :prototype(&;*) {
    my $re = shift->();
...
my $regex = qre{ join '|', qw/foo bar/ }i;

print "$regex\n";