#!/usr/bin/perl

use strict;

my $orig = <STDIN>;
chomp( $orig );

my $len=length($orig);

# print "GOT: len=$len\n";

my @az = qw( a b c d e f g h i j k l m n o p q r s t u v w x y z );

my $min=undef;
my $min_char=undef;

foreach my $rem ( @az ) {
	my $inp=$orig;
	my $ucrem=uc($rem);
	$inp =~ s/$rem//g;
	$inp =~ s/$ucrem//g;
	$len=length($inp);
	while( 1 ) {
		foreach my $c ( @az ) {
			my $pata = lc($c).uc($c);
			my $patb = uc($c).lc($c);
			$inp =~ s/$pata//g;
			$inp =~ s/$patb//g;
		}
		my $newlen=length( $inp );
		last if( $newlen == $len );
		$len=$newlen;
	}

	# print "Rem: $rem gives $len\n";
	if( !defined( $min ) || $len < $min ) {
		$min=$len;
		$min_char=$rem;
	}
}

print "Minimum is $min (removing $min_char)\n";