2017/01.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 chomp (my $data = <>);
   7
   8 $data =~s /\A(.)(.*)\z/\1\2\1/;
   9 my $sum = 0;
  10 $sum += $1 while $data =~ /(.)(?=\1)/g;
  11 say $sum;