Select Code to Download

my $string = '\\\\\\a';
# Unprocessed: \\\a
# Should be:   \a
# Result:      \\a

my $string = '\\\\\\?';
# Unprocessed: \\\?
# Should be:   \?
# Result:      \\#