Help for this page

Select Code to Download


  1. or download this
    my $winner = $1 if $R =~ /(\[[^#]*(?:\]|#[^#]*\]))/;
  2. or download this
    my $winner = $1 if $R =~ /(\[[^#]*(?:#[^#]*)?\])/;
  3. or download this
    /(              # Start capturing.
    \[          # A literal left bracket.
...
    )?            # End group. Group is optional.
    \]          # literal right bracket.
)/x