../code_perl/Maasha/bin/extract_seq