Help for this page

Select Code to Download


  1. or download this
     if (/^([^_]{2}_[^_]+)_/) {
        print $1;
    }
  2. or download this
    for(@str) {
             my $temp;
...
        }
  }