next if $substr =~ /x/;