Select Code to Download

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

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

<a href="something"> foo!
</a>