c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = '\\\\\---\--\\\\---\\--\\\-';
 print qq{'$s'};
 ;;
 printf '   %d', $_ for map tr{\\}{}, $s =~ m{ \\+ }xmsg;
"
'\\\---\--\\---\--\\-'
   3   1   2   1   2