my $string = "<first><second>blahblah<third>\n";
$string =~ s/<(.*)>//g;
print $string;
##</code><code>##

$string =~ s/<[^>]*?>//g;