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

while ( $text =~ /$query_modified/gi ) {
do_something_different();
}