if ({nthcharacter of $string} eq "x")

##</code><code>##

my @b = split(//, $string) ;
if ($b[n] eq "x") {...}