$noLineCode        += scalar(grep { $_ =~ /\w/ } @aLine);