# If it's a logical name, expand it.
$file = $ENV{$file}
 while $file =~ /^[\w\$\-]+\Z(?!\n)/s && $ENV{$file};