use strict;

my @array;
while(@array = <DATA>){
        chomp;
        for(my $i =0;$i<=scalar(@array);$i++){
                 my @data = split(//,$array[$i]);
                 foreach my $element (@data){
                next if $element eq 'W' || !$element ;
                        print $element;
                        }
                };

      #  print "@data";

        }