these are the constants from cryptfix
# use constant APOSTROPHE => "’" ;
# use constant OPENQUOTE =>  "“" ;
# use constant CLOSEQUOTE => "”" ;
# use constant COMMA      => "¸" ;

# This is the version from a hex dump of the crypt text file
use constant APOSTROPHE => "\x{e2}\x{80}\x{22}" ;
use constant OPENQUOTE =>  "\x{e2}\x{80}\x{90}" ;
use constant CLOSEQUOTE => "\x{e2}\x{80}\x{9d}" ;
use constant COMMA      => "¸" ;


unless (@ARGV)
{   die "usage: <crypts-text-file>\n" ; }

open(CRYPTS, "<",  $ARGV[0]) or die "Can't open $ARGV[0]: $!" ;
while (my $line = <CRYPTS>)
{   say "apostrophe in line $." if $line =~ /@{[APOSTROPHE]}/;
    say "open quote in line $." if $line =~ /@{[OPENQUOTE]}/;
    say "close quote in line $." if $line =~ /@{[CLOSEQUOTE]}/;
}