#!/usr/bin/perl -l 
my $yo = 'C:/as/d/f/e/r/g/a/d/f/g/';
use File::Spec;
print for File::Spec->splitpath($yo);
warn $yo;
print for File::Spec->splitdir($yo);
die $yo;
__END__
C:
/as/d/f/e/r/g/a/d/f/g/

C:/as/d/f/e/r/g/a/d/f/g/ at - line 5.
C:
as
d
f
e
r
g
a
d
f
g

C:/as/d/f/e/r/g/a/d/f/g/ at - line 7.