my $neu = join '', $text2 =~ m/[^y]/gi;