Select Code to Download

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

china.txt

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