$ perl -wle 'reverse("abcd") =~ /(cb)/; print $1' 
cb