Re: how to do replace more then one matches?

in reply to how to do replace more then one matches?

Maybe something like (note the s///g regex modifier):

>perl -wMstrict -le
"my $s = 'xyz table 1 table tablet table2 fig 3 fig figer fig4 zyx';
 print qq{'$s'};
 ;;
 $s =~ s{ (?= (?: table | fig) \s* \d+) }{<aid=}xmsg;  # <-- note /g m
+odifier
 print qq{'$s'};
"
'xyz table 1 table tablet table2 fig 3 fig figer fig4 zyx'
'xyz <aid=table 1 table tablet <aid=table2 <aid=fig 3 fig figer <aid=f
+ig4 zyx'
[download]

Comment on Re: how to do replace more then one matches? Select or Download Code

In Section Seekers of Perl Wisdom