#!/usr/bin/perl
use v5.14;
use warnings;

use List::Util qw/sum/;

<>;
say sum 0, map { int (length) / 2 } (<> =~ y/ //dr) =~ /11+/g;