02.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my $sum;
   6 while (<>) {
   7         while (1) {
   8                 $_ = int($_/3)-2;
   9                 last if $_ <= 0;
  10                 $sum += $_;
  11         }
  12 }
  13 say $sum;