martin => sub {
      # args: sentence, wantedchars
      '' eq $_[1] ||
      '' ne $_[0] &&
      $_[1] =~ /^[\Q$_[0]\E]*\z/;
  },