Select Code to Download

sub indexBal {
    my( $string, $lookFor, $limit ) = @_;
...
print substr $s, 0, $pos+1;

{ [ { [ { x }, { y } ], [ z ] } ] }