http://qs321.pair.com?node_id=69582


in reply to Re: Why does this happen?
in thread Why does this happen?

You could compile them into a regexp with

my $re = do { local $"='|'; qr/^(?:@matching)$/ };

--
g r i n d e r