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