my ($junk, $extension) = split /\./, $pubupload;