#

 # Author: Makarius

 #

 # yxml.pl - simple XML to YXML converter

 #

 use strict;

 use XML::Parser;

 binmode(STDOUT, ":utf8");

 sub handle_start {

   print chr(5), chr(6), $_[1];

   for (my $i = 2; $i <= $#_; $i++) {

     print ($i % 2 == 0 ? chr(6) : "=");

     print $_[$i];

   }

   print chr(5);

 }

 sub handle_end {

   print chr(5), chr(6), chr(5);

 }

 sub handle_char {

   print $_[1];

 }

 my $parser = new XML::Parser(Handlers =>

   {Start => \&handle_start,

     End => \&handle_end,

     Char => \&handle_char});

 $parser->parse(*STDIN) or die $!;