foreach ( $string =~ m/\b($re)\b/g ) {