use XML::Parser; my $zeiger = new XML::Parser (); $zeiger->setHandlers (Start => \&anfang,End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("test.xml"); sub anfang { $wert_des_zeigers = shift; $starttag= shift; print "<$starttag>"; print "\n"; } sub ende { ($wert_des_zeigers,$endtag) = @_; print "\n"; } sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " $inhalt"; }