substr($str, 6, -4) =~ s/./X/g;