my $regexp = qr/$retext/
  or $resulttext->AppendText ("Error running regex : $errstr\n"), return;

# regexp ok, code continues

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

##</code><code>##

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

##</code><code>##

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