how to to find the "/" in a string

perl -e '$str=q (usr/bin); print index($str,q(/))."\n";'
[download]

The output is

3
[download]