>>581
CGIがメインさ。CGIがメインでもいいじゃないか。メインでもいいじゃないかコノヤロウ。

>>564
つかさ。コストがかからないようにevalすればいいじゃないの？

sub newRegExp{eval("sub{\$_[0] =~ /$_[0]/$_[1]}")}
local *regexp = newRegExp('b', 'ig');
print regexp('abcdefgfedcba'), "\n";
print regexp('AbabaAbabaAbabababa'), "\n";
print regexp('baka! ...demo suki!'), "\n";

まあ、↑じゃ使いにくいだろうからちょっと改造が必要だろうが。