$lines =~ /<a[^\*]*<a/gms;