Help for this page

Select Code to Download


  1. or download this
    my $line= 'abc ... {abc} ... abc';
    my @terms= $line =~ /\{(.*?)\}/g;
    ...
        print "$bracketed matches $1"
            if ($bracketed =~ /(abc|nop)/);
    };