in reply to Re: Count similar characters in a rowin thread Count similar characters in a row
perl -lane '$count++ if "rrr" eq join "",@F[1 .. 3] }{ print $count' m +y_column_file.txt [download]