if ( $var =~ m{$pattern}g ) {