diff --git a/lib/files.tcl b/lib/files.tcl
index 4fe7f25..a40f6eb 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -33,7 +33,7 @@ namespace eval FileOper {
         lappend cmd $fileFullPath
         catch $cmd pipe 
         # puts $pipe
-        if [regexp -nocase -- {(\w+)/([[:alnum:]-]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
+        if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
             puts "$fType $fExt $fCharset"
         }
         switch $opt {