$line =~ /<meta name="title" content=\"(.+)>/i)

print $1;