my $text = ' 1 + 2 <maths> + dfdf</maths> '; my @t; my $x = -1; local *_ = \$text; s!(<maths>.*?</maths>)!$x++;push@t, $1;"##XAHJASH $x##"!egs; s/+/ + /g; s/##XAHJASH (\d+)##/$t[$1]/ge; print
In reply to Re: Regular Expression Doubt
by borisz
in thread Regular Expression Doubt
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |