Split filepath into (parent directory, basename, extension)

fileparse.pl

# Assumpsion: no '.' in the filepath
sub split_filename {
    my $arg = shift @_;
    if("" eq $arg) {
      return ("", "", "");
    }

    my ($dir, $basename,$ext) = ("", "", "");

    my @components = split (/\//, ${arg}); 
    my $filename = $components[@components -1];
    if(@components > 1) {
      $dir = join('/', @components[0..@components-2]);   
    }

    @components = split (/\./, ${filename}); 
    $basename = $components[0];
    $ext = $components[1];
    return ($dir,$basename,$ext);
}