my $ext = '';
  $ext = $1 if $file =~ /\.(.*?)$/;