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

# regexp ok, code continues

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