substr($x, index($_ = $x =~ tr/ /x/cr, 'x'), rindex($_, 'x') - length($x) + 1)