Looks like a broken attempt at parsing an e-mail address. Broken because:
The accepted regex for parsing an e-mail address is several hundred characters long, and it doesn't even match embedded comments. See Email::Valid.
----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer
: () { :|:& };:
Note: All code is untested, unless otherwise stated
In reply to Re: Translation of reg expression
by hardburn
in thread Translation of reg expression
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |