Вырезать title

Как вырезать тег <title></title> при помощи регулярных выражений???

#!/usr/bin/perl<br>$line = "<Title> ehwjwhehg jhsgdjhsg sjhgdjashdg </title>";<br>$line =~ /<title>(.+)<\/title>/i;<br>$title = $1;<br>print "line=$line\n";<br>print "title=$title\n";<br>

# Получение заголовка файла
if (preg_match ("/<[Tt][Ii][Tt][Ll][Ee]>\s*(.*?)\s*<\/[Tt][Ii][Tt][Ll][Ee]>/", $contents, $matches)) { $rez_title=$matches[1]; }