if ( $text =~ m{$regex} ) { .... }