$file =~ m/(.[^.]+)$/;
   $ext = $1;