my($filename,$ext) = split(/\./,$file);