cat <(pcat ../../gtex/metadata_prep/gtex.recount_project.gz | head -1) <(fgrep -f samples.tsv.diseases samples.tsv | cut -f 1,2,3 | perl -ne 'chomp; $f=$_; ($rid,$run,$study)=split(/\t/,$f); print "$f\t$study\tHomo sapiens\tdata_sources/tcga\tdata_sources/tcga\t2019-12-01\n";') | gzip > tcga.recount_project.gz.1