#!/usr/bin/perl
while(<DATA>){

s/(<a\s\w*[=|]\w*)</$1<\/a>/g;

print $_;

}

__DATA__
<a href="www.google.txt>Click here<span>