@dissection = split /\./, $filename;
$ext = pop(@dissection);
$id = join(".",@dissection);