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