my $string = 'PARJT$$';

if ($string=~m/\$\$$/) {
 print "match";
}