Why is $PREMATCH not changing on the seconde match?
I have the following code:
#########################################
use English;
$counter=0;
$line ="No princípio, Deus criou o céu e a terra. {I}2_{/}A terra estava sem
forma e vazia; as trevas cobriam o abismo e um vento impetuoso soprava sobre
as águas.";
print "LINE = $line\n";
$line =~ /(\[\\u0095\]_|\[=\]_|\[\*\]_|\{R\}_)*\{I\}(\d+)_\{\/\}/;
print "Match $counter= $MATCH\n";
print "Pré-Match $counter= $PREMATCH\n";
print "Pos-Match $counter= $POSTMATCH\n";
$save_string = $POSTMATCH;
$texto = $POSTMATCH;
print "TEXTO1=$texto\n";
$texto =~ /(\[\\u0095\]_|\[=\]_|\[\*\]_|\{R\}_)*\{I\}(\d+)_\{\/\}/;
print "TEXTO2=$texto\n";
print "Match2 $counter= $MATCH\n";
print "Pré-Match2 $counter= $PREMATCH\n";
print "Pos-Match2 $counter= $POSTMATCH\n";
#########################################
#that gets the following ourtput:
##LINE = No princípio, Deus criou o céu e a terra. {I}2_{/}A terra estava
sem forma e vazia; as trevas cobriam o abismo e um vento impetuoso soprava
sobre as águas.
##Match 0= {I}2_{/}
##Pré-Match 0= No princípio, Deus criou o céu e a terra.
##Pos-Match 0= A terra estava sem forma e vazia; as trevas cobriam o abismo
e um vento impetuoso soprava sobre as águas.
##TEXTO1=A terra estava sem forma e vazia; as trevas cobriam o abismo e um
vento impetuoso soprava sobre as águas.
##TEXTO2=A terra estava sem forma e vazia; as trevas cobriam o abismo e um
vento impetuoso soprava sobre as águas.
##Match2 0= {I}2_{/}
##Pré-Match2 0= No princípio, Deus criou o céu e a terra.
##Pos-Match2 0= A terra estava sem forma e vazia; as trevas cobriam o abismo
e um vento impetuoso soprava sobre as águas.
##
