WTF?
heiko@foobar:~$ perl -wlne'END{print$n}eof&&$n++;/<title>([^<]+)/i&&$n--' * Use of uninitialized value in print at -e line 1.