#!/usr/bin/perl -W
use 5.10.0;
chomp( my $num_lines = <> );

my @wanted = qw/H A C K E R C U P/;
my %freq;
$freq{$_}++ for @wanted;
for my $line_num (1..$num_lines) {
  chomp(my $line = <>);
  my %letters;
  $letters{$_}++ for split '', $line;
  my $min = 1000;
  for my $letter (@wanted) {
    $letters{$letter} ||= 0;
    $min = int $letters{$letter}/$freq{$letter} if $letters{$letter}/$freq{$letter} < $min;
  }
  say "Case #$line_num: $min";
}