Select Code to Download

use warnings;
use strict;
...
-E-S--------L-GIP-IML----VT------GN-T----V-QFA---EA-A------S
IL---------------I-----G----TS-----------------GP-VV--------
---AE--D------GG---A---------------------------------------I

$VAR1 = {
          'SEQ3' => '--KI----KA--ISIDIDG-TIT------YPN-R-------MIHEK--A
+-LEAIRR--A--E-S--------L-GIP-IML----VT------GN-T----V-QFA---EA-A-----
+-SIL---------------I-----G----TS-----------------GP-VV-----------AE--
+D------GG---A---------------------------------------I',
          'SEQ2' => '-MKI----KA--ISIDIDG-TIT------YPN-R-------MIHEK--A
+-LEAIRR--A--E-S--------L-GIP-IML----VT------GN-T----V-QFA---EA-A-----
+-SIL---------------I-----G----TS-----------------GP-VV--------',
          'SEQ1' => '-----I--RL--AAIDVDG-NLT----------D--R--D-RL-ISTKA
+-IESIRS--A--E-K--------K-GLT-VSL----LS------GN-V----I-PVV---YA-L-----
+-KIF---------------L-----GINGPVF------------------------------'
        };