for i in {0..9}; do find ../../../srav3_human${i}/study/ -name "*.MM.gz" -size +0c | perl -ne 'chomp; $f=$_; @f=split(/\//,$f); $s=pop(@f); @f2=split(/\./,$s); $study=shift(@f2); $fp=join("/",@f); $fp.="/$study.RR.gz"; $study=~/(..)$/; $lo=$1; `mkdir -p $lo/$study`; `ln -f $f $lo/$study/sra.junctions.$study.MM.gz`; `ln -f $fp $lo/$study/sra.junctions.$study.RR.gz`;' > link_errors.${i} 2>&1 ; donE