awk print the first 4 and last 4 letters from a string

 cat tmp | awk '{print $1","substr($1,1,4)"_"substr($1,length($1)-3,length($1))}' > input_list_combine.table