2023/01.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.38;
   4 use strict;
   5 use experimental 'multidimensional', 'for_list', 'builtin';
   6
   7 my $sum;
   8
   9 while (<>) {
  10         my ($first) = /(\d)/;
  11         my ($last) = /.*(\d)/;
  12         $sum += "$first$last";
  13         # say "$first $last.";
  14 }
  15
  16 say $sum;