#!/usr/bin/perl -w

use v5.16;
use strict;

my ($clen, $slen) = (0, 0);
while (<>) {
	chomp;
	$slen += length;
	$clen += 2+length "\Q$_\E";
	# say "$_ =>\n\Q$_\E\n\n";
}

say $clen - $slen;
