$fast = sub {
	my $match = qq@ return 1 if m!foo!o; @;
	my $code = eval "sub {$match ; return 0}";
	return $code;
};