my @neu = ( grep { lc($_) ne "y" } split //, $t )[0..12];