( $sender ) = split (/\s(sender=(.*)@(.*),)/);