% perl -le '$_="abcde";my($z,$y,$x)=/(b)(c)(d)/;print "$x$y$z"'
dcb