sub has_all {
  my $text = shift;
  for my $c ('a', 'r', 'z', 'x') {
    return 0 unless $text =~ m/$c/;
  }
  1;
}