#!/usr/bin/perl
#ce programme segmente un texte de plusieurs ligne en une seule occurence par ligne
open(FILEINPUT,"$ARGV[0]");
while ($ligne = <FILEINPUT>){
	if ($ligne=~/([^a-zA-Z0-9]+)/) {
           $ligne=~s/([^a-zA-Z0-9éèêàâùûôï])/\n/g;

             print $ligne;
     }
}
close(FILEINPUT);