2015/16.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my ($clen, $slen) = (0, 0);
   7 while (<>) {
   8         chomp;
   9         $slen += length;
  10         $clen += 2+length "\Q$_\E";
  11         # say "$_ =>\n\Q$_\E\n\n";
  12 }
  13
  14 say $clen - $slen;