Die Fehlermeldung kann Dir helfen, sie sagt, daß Du in Zeile 73 ein Anführungszeichen vergessen hast.

Weiter versendest Du eine Variable $stext in Zeile 71, mit der Perl nicht so recht etwas anzufangen weiß, weil sie nicht deklariert wurde und undef ist.