my $tst = "split-word another:one";

$tst =~ s/\p{IsSplitWord}+/**/g;
print $tst,"\n";

sub IsMySep
{
    return <<EOQ;
002D
003A
002F
EOQ
}

sub IsSplitWord
{
    return <<EOQ;
0041\t005A
0061\t007A
+IsMySep
EOQ
}