my $path = "D:\\nt\\tools\\whoa.txt";

my ($pathname, $filename) = splitpath($path);

print "$pathname => $filename\n";

sub splitpath
{
   my ($path) = @_;
   my $pos = rindex($path, "\\");
 
   return ("", "") if $pos < 0;

   my $filename = substr($path, $pos+1);
   my $pathname = substr($path, 0, $pos+1);

   return ($pathname, $filename);
}
[download]