my reg1= /r\n/;#needed for UTF-8 cleaning
my $reg2 = /s/;#see http://unicode.org/reports/tr13/tr13-5.html

foreach (@words) {
    unless ($_ eq "s+"|$_ eq "0"|$_ eq $reg1|$_ eq $reg2){ #last cleaning
    ...
}