Help for this page
#warning windows double quotes ... ENSG00000105374 -0.27 ENSG00000105374 -0.30 ENSG00000133107 0.35
perl -lanE "BEGIN{@h=qw(Gene Prot_Ente Bact_Bact Firm_Lach);print join + qq(\t),@h} print $F[0],qq(\t)x($F[3]=~/$h[1]/?1:$F[3]=~/$h[2]/?2:3),$ +F[4]" genetable.txt ... ENSG00000105374 -0.27 ENSG00000105374 -0.30 ENSG00000133107 0.35