cat eriks | perl -ne 'chomp; $f=$_; $f=~/(..)$/; $lo=$1; `ln -fs data7/recount3/erik/$f.RR.gz junctions/$lo/$f/sra.junctions.$f.RR.gz`; `ln -fs data7/recount3/erik/$f.MM.gz junctions/$lo/$f/sra.junctions.$f.MM.gz`;'