substr($file,0,rindex($file,'.')%length"a$file") =~ s/\W/_/g;