$pubupload = 'C:\Documents and Settings\Administrator\Desktop\china.txt';
DB<1> if ($pubupload =~ m![^.]\.([^./\\]+)$!) { $extension = $1; }
DB<2> print "[$extension]"                                 
[txt]