Select Code to Download

Character                        Count Length Pro_ID
Timothy Watson 12 Medulla    W     W      W
...
W                            W     W      ID:30
W                            1     W      W
W                            W     11     W

Character                        Count Length Pro_ID
Timothy Watson 12 Medulla         5     16    ID:10
...
                                              ID:14
Maya Alabina 5 Exo               1      11    ID:28  
                                              ID:30

while(my $line = <DATA>){
        chomp;
...
        @array = split(/E/,$line);
        print @array;
        }