Stuff

if ( /^X-BeenThere:\s*(.*)/ )
{ 
  ADDR=getaddr($MATCH)
  if ($ADDR =~ /^(.*)@(.*)/)
  {                                                                                                                       
    LISTNAME=${MATCH1}
    LISTDOMAIN=""
    foreach ($MATCH2) =~ /[^.]+/
    {
      LISTDOMAIN="${LISTDOMAIN}-${MATCH}"
    }

    $LISTDOMAIN =~ /^-(.*)/
    LISTDOMAIN=${MATCH1}
    MDFOLDER="${MLBASE}.${LISTDOMAIN}.${LISTNAME}"
    include "${MAILDROPFOLDER}/deliver2folder"
  }
}