Help for this page
knoppix@Microknoppix:~$ perl -E ' > $str = q{ABC---DR----EEEEEGGGG-GRE-RED----KKKK---}; ... > say $len_seq;' 24 knoppix@Microknoppix:~$