my $new_filename = $full_filename;
    $new_filename =~ s/(\.gpg)|(\.encrypted)/\.decrypted/;

##</code><code>##

$error ||= "Unexpected signer '$signer' is not '$expected_sender'."
        unless ($signer =~ m/\Q$expected_sender\E/);

##</code><code>##

$error ||= "Unexpected signer 'GOODSIG 86125876138571635 ClientKey' is not ''."
        unless ('GOODSIG 86125876138571635 ClientKey' =~ m/\Q\E/);