Select Code to Download

@@ -12,18 +12,20 @@
     my $after  = substr $text, $pos;
...
 
         last OUTER;
     }

@@ -25,7 +25,7 @@
 $xml .= " jumps over the lazy d<bar>o</bar>g.</foo>";
...
     }
 }
 print $dom;

@@ -14,11 +14,12 @@
     my $parent = $text->parentNode;
...
         $from += $from == $to ? 1 : 2;
 
         last OUTER if $from > @texts;

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,