in reply to using split on a string

this is because your regex matches a space followed by any character. What you want is

split /\./, $pubupload;

In Section Seekers of Perl Wisdom