sub qre (&;$) {
	my $re = shift->();
	eval 'qr/$re/'.(shift//'') || die $@
}

my $regex = qre{ join '|', qw/foo bar/ }'i';
print "$regex\n";

__END__

(?^i:foo|bar)