my @arr;
while (<FILE>) {
  push @arr, $1 if /^\$FILES(.*?)\$$/;
}