>perl -wle"print -e '\\\\tribble\\c$\\bin' ?1:0"
1

>perl -wle"print -e '\\\\tribble\\c$\\bla' ?1:0"
0

>perl -wle"print -e '\\\\baragon\\c$\\bin' ?1:0"
1

>perl -wle"print -e '\\\\baragon\\c$\\bla' ?1:0"
0