sub includes {
  my($in, $test) = @_;
  return (length $test == grep $test=~s/$_//, $in=~/./g) ||0;
}