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