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