Please, PLEASE ... just use glob.

/me really wishes perl didn't have the <> construct doing such drastically different things because parsing it right is hard, e.g.

  my $wildcard = File::Spec->catfile(File::Spec->rootdir(),
                             qw(apps inst2 metrica),
                             $some_location,
                             qw(backup schema),
                             '*.tdef'
                            );
  while (<$wildcard>) {
    print;
  }
[download]

doesn't work. Change the while to:

  for (glob $wildcard) {
[download]

and it's fine.