On Fri, Dec 07, 2001 at 10:01:05AM +1100, [EMAIL PROTECTED] wrote:
> --- mid.pl  ---------------------------------------------
> #!/usr/bin/perl -p0
> $_=$1while/.^(.+)^/ms

Someone want to explain why this works?

-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl Quality Assurance      <[EMAIL PROTECTED]>         Kwalitee Is Job One
My lips, your breast and a whole lotta strange arguing.

Reply via email to