@a = ('a\\b'); print length(Dumper @a)-2*@a; # 4