how to do replace more then one matches?

[virudinesh]

its replace was done again and again

 $li ="abbjghfg table 1 vinoth figer table2";
 $f=$li;
  while($f=~m /table[ ]([0-9])+|table([0-9])+|fig[ ][0-9]+|fig[0-9]+/i
+)
  {
     $f = $';
    #print "  after ----$f \n ";

     $match_key=$&;
       #print " --match : --$match_key \n ";

     $front=$`;
     $rep=$front."<aid=".$match_key.$';
     print" $rep \n";

  }

output come

abbjghfg <aid=table 1 vinoth figer table2 vinoth figer <aid=table2

but i tried different ways but how to do like this i dont know

need like this abbjghfg <aid=table 1 vinoth figer <aid=table2

[AnomalousMonk]

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'

[2teez]

You mean something like this?:

use warnings;
use strict;

my $li = "abbjghfg table 1 vinoth figer table2";
my $new_str;
while ( $li =~ m/(.+?)(table.?\d)/gc ) {
    $new_str .= $1 . '<aid=' . $2;
}
print $new_str, $/; #abbjghfg <aid=table 1 vinoth figer <aid=table2

Update: Why to avoid using $&, $`, or $' in your program

[hdb]

I guess it is the $' at the end of your line $rep=$front."<aid=".$match_key.$';. I you remove it you get something like the desired output.

[virudinesh]

$f variable r store in $'(after match)

both r same

[hdb]

$li ="abbjghfg table 1 vinoth figer table2";
$f=$li;
while($f=~m /table[ ]([0-9])+|table([0-9])+|fig[ ][0-9]+|fig[0-9]+/i)
{
    $f = $';
    $match_key=$&;
    $front=$`;
    $rep=$front."<aid=".$match_key;
    print $rep;
}