in reply to Re^3: dir / file split
in thread dir / file split

now: 
        $file_path =~ m{(.*)/([^/]+?$)};
        my ($dir, $file) = ($1, $2);

[download]

Thanks John

In Section Seekers of Perl Wisdom