my $s = "x12345x23x56x";

my $len = (length($s)-3)/2;
my $re = "x" . "."x$len . "x" . "."x$len . "x";   # this is the RegEx you want

if ($s =~ /$re/) { print "ok\n"; } else {print "nok\n";}