2018/10.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.30;
   4 use strict;
   5
   6 chomp (my $data = <>);
   7
   8 my $re = join('|', map { ("\l$_\u$_", "\u$_\l$_") } ('a' .. 'z'));
   9
  10 my $min;
  11 for my $c ('a' .. 'z') {
  12         my $d1 = $data;
  13         $d1 =~ s/$_//g for $c, "\u$c";
  14         1 while $d1 =~ s/$re//;
  15         $min = length $d1 if !$min || $min > length $d1;
  16 }
  17
  18 say $min;
  19