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         my ($c) = /(.)\S*\s\S*\1\S*\s\S*\1/;
  15         $sum += $c =~ /[A-Z]/
  16                 ? ord($c) - ord('A') + 27
  17                 : ord($c) - ord('a') + 1;
  18 }
  19 say $sum;