my $s = q~1\A\563\M\1\Y\Y\Y\A\N\N\N\N\(A)[N]\N\N\N\N\S3/P2\N~;
print $s =~ m/(\\)/g; # gibt 19mal \ aus
my @erg = $s =~ m/(\\)/g;
print "\nerg: " . scalar(@erg); # gibt erg: 19 aus