Select Code to Download

sub buk2 {
    my( $s, $n ) = @_;
...
    ) while $n-- and index( $s, '(', $start +1 ) > 0;
    substr $s, $start, $stop - $start;
}