open DATA, "junk.txt" or die $!;
my @arr;
while (<DATA>) {
  # add the extra $ and it won't print anything
  push @arr, $1 if /\$FILES(.*?)\$/;
}
close DATA;

print $_, "\n" for @arr;