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

##</code><code>##

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

##</code><code>##

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