my $matchmember='PARJT$$';
my $target='PARJT## PARJT$$ PARJT##';
my $rc;
$rc=grep /$matchmember/,$target;