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