2015/15.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         $clen += length;
  10         $slen += length eval $_;
  11 }
  12
  13 say $clen - $slen;