sub includes {
  my($in, $test) = @_;
  my $ins = join '', sort split//, $in;
  my $ts = join '.*', sort split//, $test;
  return $ins =~ /$ts/ || 0
}

##</code><code>##

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