perl -nlwe 'print $l if $_ eq "+"; $l = length' your-file