my $my_slash_b = qr/(?:(?<=[\w-])(?![\w-])|(?<![\w-])(?=[\w-]))/;

/$my_slash_b$check$my_slash_b/