while ( $text =~ /$query/gi ) {
do_something();
}