if $string =~ m{ ($pattern) };