if (my ($file) = $inc =~ /(FILE_INPUT_\w+)/) {
   print("$file\n");
}