Help for this page

Select Code to Download

Select or download this

foreach $one (@one) {
  foreach $two (@two) {
    $one =~ m/\(.\)(.+)\(.\)/;
...
    }
  }
}