Быстрый взлом с perl:
perl -wlne 'print for(/<.*?>/g)' file.html
Но для серьезного решения следует использовать инструмент, который действительно понимает html/xml.
.Использовать html парсер не так уж и сложно:
perl -MHTML::Parser -E '
$handler = sub {say "<".shift.">"};
HTML::Parser->new(start_h => [$handler,"tag"], end_h => [$handler,"tag"])
->parse_file(shift @ARGV)
' file.html
<html>
<head>
<title>
</title>
</head>
<body>
</body>
</html>