eval "m/$query/";

##</code><code>##

my $re = $_->regex;
$matchtext =~ /$re/i;