Although you might be coding this for fun and edification, you might want to use HTML::Parser which comes with HTML::HeadParser.

You'll drive yourself nuts trying to use regexen for this. They are the wrong tool for this because there are too many patterns to consider.