Was willst du überhaupt erreichen?

Der Code sieht wirr aus, insbesondere benutzt du $t schon auf der rechten Seite der Zuweisung my $t = ..., was nicht gehen kann. Und warum ist Code (regexp, print) irgendwie innerhalb der Parameter von XML::Twig->new()?