sub scan {
    my ($sentence, $wanted) = @_ ;

    while (length($wanted)) {
      return 0 if ($sentence !~ m/([$wanted])/g) ;
      $wanted =~ s/$1// ;
    } ;

    return 1 ;
  } ;