2017/02.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 chomp (my $data = <>);
   7
   8 my $l = length $data;
   9 $l /= 2;
  10 $data .= substr($data, 0, $l);
  11 $l--;
  12 my $sum = 0;
  13 $sum += $1 while $data =~ /(.)(?=.{$l}\1)/g;
  14 say $sum;