$contents_of_file =~ s/\<a.*?\>(.*?)\<\/a\>/$1/igs;