$text =~ s/[a-z]| //gi;
$text =~ s/-/\n /g;
$text =~ s/[.?\!\"\;_] //g;

my @Adresse = split(/,/,$text);
my $eta;
# my $inc = $Adresse[2];
my $i = 0;
# my $ii = 0;
for(@Adresse) {
if ($i == 0) {
$eta = substr($Adresse[0],4,50);
main::irc_say($remotenick,$eta);
} else {
$eta = substr($Adresse[$i],3,50);
main::irc_say($remotenick,$eta);
}
$i++;
}