#usr/bin/perl -w open(IN,"/home/datasets/maize/extracted_sequences.gtf"); mkdir sequence1; while($seq=) { @file=split(/\r/,$seq); open(OUT, ">sequences1/$file[0].txt"); print OUT ">$file[0]"; } close(IN); close(OUT);