Expression régulière metacaractere

Bonjour,

Je souhaite matcher différentes chose comme des *, /, etc.

ma boucle se présente ainsi :
Code:

1 2 3 4 5 6 7 8 9 if ( $texte =~ /\*\*\*/ ) { $syllabes_incompletes = $&; $new_syllabes_incompletes = '<unclear/>'; $texte =~ s/$syllabes_incompletes/$new_syllabes_incompletes/g; }
J'ai bien mien le "\" pour spécifier qu'il s'agit d'un métacaractère.

Cependant lorsque je fais mon opération de remplacement dans le texte j'ai ce message d'erreur :

Code:

Quantifier follows nothing in regex; marked by <-- HERE in m/+ <-- HERE / at D:/Documents and Settings/knebhi/workspace/Corpus_oraux/trans_convention.pl line 38, <IN> line 164.

Le programme matche bien cette séquence (et je le vois en faisant un print) mais par contre lorsque je souhaite remplacer cette séquence j'ai l'impression qu'il juge ma regexp fausse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
...
 
if ( $texte =~ m/\*\*\*/ ) {
	my $syllabes_incompletes = quotemeta($&);
	my $new_syllabes_incompletes = '<unclear/>';
	$texte =~ s/$syllabes_incompletes/$new_syllabes_incompletes/g;
 
}

merci ça marche impeccablement