Petit pb en perl

@ARGV=("fichier.txt");
while ($ligne=<>){@tab=split("",$ligne)};
while(@tab[i]!=null){{if (@tab[i]=~ s/\w#\w/\s/g){ print(@tab[i])}};

aprés lecture d'un fichier txt on doit avec une expression réguliére reconnaitre dans la liste la chaine contenant le charactére # et séparer la chaine ansi trouvé en deux au niveau de charactére # et sauvez les deux parties dans deux tableaux différents

si vous avez même juste un début de réponse ca sera toujours ca


merci