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