2018/09.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 1 while $data =~ s/$re//;
  11
  12 say length $data;
  13