use strict;
use warnings;

while (<DATA>){
    chomp;
    # note the string IS always odd
    my $inter = int ((length $_) / 2)-1;
    my @char = $_=~/./g;
    if (scalar @char % 2 < 1){
        print "Not OK $_ (unbalanced)\n";
        next;
    }
    if (
          $char[0] eq $char[$inter+1] and
          $char[0] eq $char[-1] and
          $char[0] eq 'x'
        ){
      print "$_\t\tOK\n";
    }
    else {
       print "NOT OK $_\t[$char[0] $char[$inter+1] $char[-1]]\n";
    }

}

__DATA__
xxxxx
x1x2x...x
xxx
x.x.x
x12x..x
x123x...x
x123x.x.x
x12x1x

# out

xxxxx           OK
x1x2x...x               OK
xxx             OK
x.x.x           OK
x12x..x         OK
x123x...x               OK
x123x.x.x               OK
Not OK x12x1x (unbalanced)