my $line = '%TMP%\$$(DATE)_RE_IRD_Soc';
my $line2 = '%RESULTS%\$$(DATE_USA)' ;
my $line3 = '%RESULTS%\$$(1110_DATE_USA)';

foreach my $x ($line, $line2, $line3)
{print "lklklk";
    while($x=~m/\$\$\((.*?)\)(\w*)/g)
    {
        print "1st Element is [$1] and second is : [$2]\n";
    }
}