$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;
}
[download]