#!/usr/bin/perl -w

use v5.30;
use strict;

chomp (my $data = <>);

my $re = join('|', map { ("\l$_\u$_", "\u$_\l$_") } ('a' .. 'z'));

1 while $data =~ s/$re//;

say length $data;

