Another way is to use quotemeta:

use warnings;
use strict;

my $matchmember = quotemeta 'PARJT$$';
my $target = 'PARJT## PARJT$$ PARJT##';
my $rc = grep /$matchmember/, $target;
print "$rc\n";

__END__

1
[download]