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

##</code><code>##

$junk = C:\Documents and Settings\Administrator\Desktop\china
$extension = txt