http://www.perlmonks.org?node_id=991345


in reply to how to to find the "/" in a string

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]

In Section Seekers of Perl Wisdom