use strict; my $line = '%TMP%\$$(DATE)_RE_IRD_Soc'; my $line2 = '%RESULTS%\$$(DATE_USA)' my $line3 = '%RESULTS%\$$(1110_DATE_USA)'; my $regex = qr/\((.+)\)(.+)*/gi;