2022/06.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.36;
   4 use strict;
   5 use experimental 'multidimensional';
   6
   7 my $sum;
   8 my $s;
   9 while (<>) {
  10         $s .= $_;
  11         next if $. % 3;
  12         $_ = $s;
  13         $s = '';
  14         s/\A\S*(.)\S*\s\S*\1\S*\s\S*\1\S*\s?\z/$1/;
  15         $sum += /[A-Z]/
  16                 ? ord() - ord('A') + 27
  17                 : ord() - ord('a') + 1;
  18 }
  19 say $sum;