[Fun With Perl] Perl Paraphernalia `Line of the Day' updated

[mjd-list-fwp@plover.com]

I don't actually update the `Line of the Day' every day, but some
months I update it pretty often.  This is one of those months, and I
find today's Line to be particularly delightful:

	$lexer = '((?s)'
	         . (join '|', 
	             map {quotemeta(pack 'S', $_) . ('..' x $opn[$_]) } 
	                 (0.. $#opn)
	           ) 
	         . ')';


For the explanation, see

	http://www.plover.com/~mjd/perl/LOD/

All Lines of the Day are guaranteed authentic, from real programs, and
not deliberately obfuscated.

Mark-Jason Dominus 	  			               mjd@plover.com

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org