$file= '<A NAME="TOC124" HREF="cvs.html#SEC124">A.8 commit--Check files into the repository</A>';

 $c->{Anchor}{from}='<A NAME="(.*?)" HREF=".*?\#(.*?)">(.*?)</A>';
 $c->{Anchor}{to}='$3 |$2| *$1*';

foreach $item (keys %$c) {
    $from=$c->{$item}{from};
    $to=$c->{$item}{to};
    eval "\$file=~s/\$from/$to/sg";
}

print "$file\n";
# A.8 commit--Check files into the repository |SEC124| *TOC124*