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

use List::Util qw/sum/;

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