$ perl -le'$_ = q[bcdefg]; print $1 if m x..(..)..x;'
de
$ perl -le'$_ = q[bcdefg]; print $1 if m 7..(..)..7;'
de