Help for this page

Select Code to Download


  1. or download this
    use strict;
my $text='(one dfd(two(three)four()(five)df())df)';

print $& if $text=~m#(\([^()]*(\([^()]*\))+[^)]*\))+#;
  2. or download this
    (two(three)four()
  3. or download this
    (one dfd(two(three)four()(five)df())df)