Help for this page
my $pubupload = q"C:\Documents and Settings\Administrator\Desktop\chin +a.txt"; $pubupload =~ /(?:.*)\\(.*?\..*)$/; print $1;
china.txt
($junk, $extension)=split/\./,$1;/;