$prev = ""; $prev_count = 0; while(<>) { s/[\r\n]//g; if ( ( $_ ne $prev ) && ( $prev ne "" ) ) { printf( "%s\t%d\n", $prev, $prev_count ); $prev_count = 0; } $prev_count++; $prev = $_; } printf( "%s\t%d\n", $prev, $prev_count ); exit;