my @array  = grep { /^\+\s+/, print $_ } <> ;
print scalar @array;