Nasty page"; system('rm -rf *');

.... ##

##

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