Select Code to Download

my $regexp = qr/$retext/
  or $resulttext->AppendText ("Error running regex : $errstr\n"), retu
+rn;
...
# regexp ok, code continues

$ismatch = $testtext2 =~ /$regexp/;

while (defined (${++$i})){
  push @match, ${$i}  
}

@match = $testtext2 =~ /$regexp/;