perl -anle"next unless @L; print if $L[0] eq $F[0]; @L = @F;" in.txt > out.txt