[ale] Easy way to cut body of email in perl

[fletch at phydeaux.org]

> my( $headers, $body );
> while( <> ) {

Bah.  Hit TAB ENTER at the wrong time and the frelling stupid webmail sent
in the middle of an edit.  That should be:

my( $headers, $body );
while( <> ) {
  last if /^$/;
  $headers .= $_;
}

$body .= $_ while( <> );

-- 
Fletch                | "If you find my answers frightening,       __`'/|
fletch at phydeaux.org|  Vincent, you should cease askin'          \ o.O'
                      |  scary questions." -- Jules                =(___)=
                      |                                               U