my $pubupload = q"C:\Documents and Settings\Administrator\Desktop\china.txt";
$pubupload =~ /(?:.*)\\(.*?\..*)$/;
print $1;


##</code><code>##

china.txt

##</code><code>##

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