2015/10.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my $sum;
   7 while (<>) {
   8         chomp;
   9         next if ! /(..).*\1/;
  10         next if ! /(.).\1/;
  11         $sum++;
  12 }
  13 say $sum;