Not perfect, but it will return a breakdown of the various parts (path, name, extension) of a given file.

sub file_parts {
    my $file = shift();
    my $ret;

    #print "File: $file\n";

    if ($file =~ /(.*\/)?(.*?)\.(.*)/) {
        $ret->{'path'} = $1;
        $ret->{'name'} = $2;
        $ret->{'ext'} = $3;
    }

    return $ret;
}