$rrow_test =~ s/$rex[0]/$rex[1]/ig;

##</code><code>##

"Replace the first occurrence of $rex[0] with $rex[1]."