2022/08.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.36;
   4 use strict;
   5 use experimental 'multidimensional';
   6
   7 my $count;
   8 while (<>) {
   9         my @r = /\d+/g;
  10         $count++ if $r[0] <= $r[3] && $r[1] >= $r[2];
  11 }
  12 say $count;
  13