$var =~ s!<a>(.*?),(.*?)</a>!<a>$1A$2</a>!gs;