07.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 $/ = "\n\n";
   6
   7 my @drawn = split/[,\s]/, <>;
   8 my @boards = <>;
   9
  10 for my $d (@drawn) {
  11         for my $board (@boards) {
  12                 $board =~ s/\b$d\b/' ' x length $d/e;
  13                 if ($board =~ / {14}/
  14                         || $board =~ /\s{3}(?:.{12}\s{3}){4}/xms) {
  15                         $board =~ s/(?<=\d)\s+(?=\d)/+/gxms;
  16                         say eval "$d*($board)";
  17                         exit;
  18                 }
  19         }
  20 }
  21