% perl -le 'print"@{[split//,join q(x),split/(?<=c)/,join(q(),qw(a b c d c e),q( ),q(f)),2]}"'
a b c x d c e   f