#!/usr/local/perl -w

use strict;

my $filename1 = 'FILE.pgp';
my $filename2 = 'FILE.gpg';

my $signer    = 'Some person <someone@this.com>';
my $exp_sender= '';

my $new_filename1 = $filename1;
   $new_filename1 =~ s/(\.gpg)|(\.encrypted)/\.decrypted/;

print ".PGP FILE ERROR:'$signer' is not '$exp_sender'.\n"
        unless ($signer =~ m/\Q$exp_sender\E/);

my $new_filename2 = $filename2;
   $new_filename2 =~ s/(\.gpg)|(\.encrypted)/\.decrypted/;

print ".GPG FILE ERROR:'$signer' is not '$exp_sender'.\n"
        unless ($signer =~ m/\Q$exp_sender\E/);

my $new_filename3 = $filename1;
   $new_filename3 =~ s/(\.gpg)|(\.encrypted)/\.decrypted/;

print ".PGP ERROR, why the second time but not the first?:'$signer' is not '$exp_sender'.\n"
        unless ($signer =~ m/\Q$exp_sender\E/);

1;