#@mail beinhaltet zeilenweise die Mail incl. Header
foreach my $line (@mail)
{
  if ($line=~/^To:/)
  {
    $to = $line =~ m/(^To: .*)/si;
   $File::Log::log->msg(4, "To Adressen: $to\n");
  }
}