$lines =~ s/(<\/a>)/\*$1/gms;