Le texte à parser est complexe, je te conseille vraiment d'utiliser un module spécialisé dans le CSV, comme Text::CSV