>perl -e "print index 'abcdcda', 'c'" 2 >perl -e "print rindex 'abcdcda', 'c'" 4