for (
   '8\\\\.',            # 8\\.
   '8__BACKSLASH__.',
) {
    my $s = $_;
    $s =~ s/\\\\|__BACKSLASH__/\\/g;
    print "$s\n";
}

##</code><code>##

8\.
8\.