Select Code to Download

  <DATA>                    line  7 also reads line 5                 
+                          --> Just
    <ELT>                         line 12 also skips the first line of
+ ELT ('my')                     --> Another
      <!-- comment -->            line 14 triggers the Comment handler
+ to skip the 'or' from ELT
...
      </ELT>                      line 21 just use the fact that < > a
+re valid delimiters
    </ELT>                        line 21 same trick
  </DATA>                         line 23 back to depth 0 in the docum
+ent, the final \n is output     --> \n

 1 #!/bin/perl -w
 2 use strict;
 3 seek DATA, $[,$[;                                                  
+    # really seek 0,0, you have to use special variables ;--)
...
21 $just=q</ELT>. qq</ELT>;                                           
+    # close elements, usinq angle brackets as q delimitors 
22 __DATA__                                                           
+    # yes we need it
23 </DATA>                                                            
+    # the closing DATA tag must be the last token in the file