$cow =~ s/\s//g; #### $cells = ($cow =~ s/[^xY]//g);