perl -e "print \"xaxbxxxxdexfx\" =~ /x(.)(?=x)/g"