Help for this page
<html> <head> <title>Nasty page"; system('rm -rf *');</title> ....
$htmlData =~ /<title>(.+?|[^.]*)<\/title>/i; print "Title found is: $1\n" if $1;