Hast du schon mal probiert einfach nachzuschauen ob die markierte Zeile, die Titelzeile ist?
Eventuell folgendes in dein callback mit einbauen:
return undef if $zeile < 1;

edit:
Vielleicht funktioniert auch:
return 'title' if $zeile < 1;

MfG\n\n

<!--EDIT|PerlProfi|1172244468-->