use Net::IMAP::Simple;

$server = new Net::IMAP::Simple( 'someserver' );
$server->login( 'someuser', 'somepassword' );
    
$number_of_messages = $server->select( 'INBOX' );
foreach $msg ( 1..$number_of_messages ) {
        $fh = $server->getfh( $msg );
        foreach $msg_line(<$fh>){
            if( $msg_line =~m/From: *(\"*[^\"]*\"*) (*[^\@]+\@[^\.]*\.[a-zA-Z])/){
                print "$2\n";
            }
        }
        close $fh;
}

#!/usr/bin/perl
use Net::IMAP::Simple;

$server = new Net::IMAP::Simple( 'someserver' );
$server->login( 'someuser', 'somepasswort' );
    
$number_of_messages = $server->select( 'INBOX' );

foreach $msg ( 1..$number_of_messages ) {
    $fh = $server->getfh( $msg );
    foreach $msg_line(<$fh>){
        if( $msg_line =~m/^From: (.+)/ ){
            print "$1\n";
        }
    }
    close $fh;
}

tell application "Mail"
    activate
    set theSelection to selection
    repeat with i from 1 to (number of items of theSelection)
        set theMessage to item i of theSelection
        set x to sender of theMessage
        
        --in x steht jetzt der (Ab)Sender
    end repeat
end tell

set CR to ASCII character 13
set allSender to {}
tell application "Mail"
 set theSelection to every message of inbox
 repeat with i from 1 to number of items of theSelection
  set theMessage to item i of theSelection
  set x to sender of theMessage
  set c to (offset of "<" in x) + 1
  set d to (offset of ">" in x) - 1
  set x to text from c to d of x
  if x contains "@" and ¬
   (offset of "." in x) is ((count of characters of x) - 2) or ¬
   (offset of "." in x) is ((count of characters of x) - 3) and ¬
   x is not in allSender then
   copy x to end of allSender
   copy CR to end of allSender
  end if
 end repeat
 set theText to allSender as string
 set fileName to "Alle Sender"
 tell application "TextEdit"
  set x to make new document with properties ¬
   {name:fileName, text:theText}
  set ptd to path to desktop as text
  set ptf to (ptd & fileName & ".txt")
  save x in file ptf
  close window 1
 end tell
end tell

set allSender to {}
tell application "Mail"
 set theSelection to every message of inbox
 repeat with i from 1 to number of items of theSelection
  set theMessage to item i of theSelection
  set x to sender of theMessage
  set c to (offset of "<" in x) + 1
  set d to (offset of ">" in x) - 1
  set x to text from c to d of x
  if x contains "@" and ¬
   (offset of "." in x) is ((count of characters of x) - 2) or ¬
   (offset of "." in x) is ((count of characters of x) - 3) then
   if x is not in allSender then
    if i is greater than 1 then ¬
     copy "," to end of allSender
    copy x to end of allSender
   end if
  end if
 end repeat
 set theText to allSender as string
 set fileName to "Alle Sender"
end tell

tell application "TextEdit"
 set x to make new document with properties ¬
  {name:fileName, text:theText}
 set ptd to path to desktop as text
 set ptf to (ptd & fileName & ".txt")
 save x in file ptf
 close window 1
end tell

set allSender to {}
tell application "Mail"
 --set theSelection to every message of inbox
 set theSelection to ¬
  every message of mailbox "INBOX" of account "tempo23"
 repeat with i from 1 to number of items of theSelection
  set theMessage to item i of theSelection
  set x to sender of theMessage
  set c to (offset of "<" in x) + 1
  set d to (offset of ">" in x) - 1
  set x to text from c to d of x
  if x is not in allSender then
   if i is greater than 1 then ¬
    copy "," to end of allSender
   copy x to end of allSender
  end if
 end repeat
end tell

tell application "Finder"
 set theFile to choose file
 set fileItem to (open for access file theFile as string)
 try
  set fileContent to read fileItem
  close access fileItem
 on error
  close access fileItem
  display dialog "something went wrong"
 end try
end tell

set astid to AppleScript's text item delimiters
set AppleScript's text item delimiters to {","}
set theList to every text item of fileContent
set AppleScript's text item delimiters to astid

repeat with x in theList
 if x is not in allSender then
  copy "," to end of allSender
  copy x as text to end of allSender
 end if
end repeat

set fileName to "Alle Sender"
set theText to allSender as string

tell application "TextEdit"
 set f to make new document with properties ¬
  {name:fileName, text:theText}
 set ptd to path to desktop as text
 set ptf to (ptd & fileName & ".txt")
 save f in file ptf
 close window 1
end tell