my @path = split m!/!, $path;
# @path is now ('', 'home', 'a', 'ff.pl')

print $path[2], "\n";