my $string = "xyzzyzx";

##</code><code>##

$string =~ /^[xyz][xyz][xyz][xyz][xyz][xyz][xyz]$/;