On Fri, Dec 07, 2001 at 10:01:05AM +1100, Andrew.Savige@ir.com wrote: > --- mid.pl --------------------------------------------- > #!/usr/bin/perl -p0 > $_=$1while/.^(.+)^/ms Someone want to explain why this works? -- Michael G. Schwern <schwern@pobox.com> http://www.pobox.com/~schwern/ Perl Quality Assurance <perl-qa@perl.org> Kwalitee Is Job One My lips, your breast and a whole lotta strange arguing.Thread Previous | Thread Next