$htmlData =~ s/<title>(.+?|[^.]*)<\/title>/print "Title found is: $1\n"/ei;