2022/07.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[2] && $r[1] >= $r[3]
  11                 || $r[0] >= $r[2] && $r[1] <= $r[3];
  12 }
  13 say $count;
  14