Foo mail

Foo Bar
Bar Foo
---snip---

og du ønsker så at få de body af mailen (foo bar/bar foo) tilføjet til
en fil, right?

Flg. script:

---snip---
#!/usr/local/bin/perl
open FILE, ">>mailvault" or die "in pain...";
while (<>) {
  print unless (1../^$/);
}
---snip---

virker fint hos mig. Hvis jeg fx tager den lille mail ovenfor i en fil
"mail" og laver

   $ cat mail | perl script.pl 

bliver resultatet at filen "mailvault" får tilføjet linierne

--snip--
Foo Bar
Bar Foo
--snip--

og det var som ønsket. Hvis du gerne vil have den tomme linie som
adskiller headere og mail-body med i mailvault, kan du erstatte linien i
while-loopet med

  print if (/^$/..eof());

Virker ovenstående ikke hos dig?

 - peter