use File::Basename;
use Data::Dumper;

my $path='C:\Documents and Settings\Administrator\Desktop\china.txt';
my @fileinfo=fileparse($path, '\..*');
print Dumper(@fileinfo);