if ($myvar =~ /^[^A-VYZ]*(X+[^A-VYZ]*)+$/) {
   print "Error\n";
}