Select Code to Download

#!/usr/bin/perl
use strict;
...
          "length original: ", length( $expat->original_string), "\n",
          ;
  }

#!/usr/bin/perl
use strict;
...
   if( $expat->in_element( 'long1')) { $long1_length+= length( $char);
+ }
   if( $expat->in_element( 'long2')) { $long2_length+= length( $char);
+ }
  }