write some perl one-liner to complete simple jobs when analysing RNA-seq data