$ perl -pi -e 's/\<a.*?\>(.*?)\<\/a\>/$1/igs' *.html