sub getClients(){
        foreach (@liste)
        {
        $_ =~ /(\s)\.txt/$1/
        print("$_ \n");
        }
}


et si je met s/

j'ai l'erreur: 

syntax error at fichier.pl line 34, near "print"
Execution of fichier.pl aborted due to compilation errors.