#original seq: accgttac #required output: acc #first substring ccg cgt tta tac #fifth substring #### #!/usr/local/bin/perl use strict; use warnings; for(){ print substr ($_,0,3),"\n" ; } __DATA__ accgttac #### run Start -> Program Files -> Strawberry Perl -> CPAN Client #### CPAN> install BioPerl