File:      Tag(s) EOF

Tag:
          | MT Element EOT
                { 
                  print "MT:  ", $item[1], "\n";
                  print "     ", $item[2], "\n";
                }
          | MT Element
                { 
                  print "MT:  ", $item[1], "\n";
                  print "     ", $item[2], "\n";
                }
          | MT EOT
                { 
                  print "MT:  ", $item[1], "\n"; 
                }
          | MT
                { 
                  print "MT:  ", $item[1], "\n"; 
                }
          | <error>

MT:         /<MT\d+>/

Element:    /[^\/\n]+/

EOF:        /^\Z/
EOT:        /\//