15.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my $sum;
   6 while (<>) {
   7         chomp;
   8         s/.*\| //;
   9         $sum += grep { my $x = length; $x == 2 || $x == 3 || $x == 4 || $x == 7; } split /\s+/;
  10 }
  11
  12 say $sum;
  13
  14
  15
  16
  17