perl -ne "m/^\w{8}$/  and print" InputfileName