$code = "This<HTML>should<head>be<foo>HTML<bar>free</b>"; $code =~ s/<.+?>//g; print "Content-type: text/plain\n\n"; print $code;