#!/usr/bin/perl

  use strict;
  use warnings;

  my $path = '/dir/dir1.3/dir1.3.1/dir1.3.1.3/file1.3.1.3.1';

  process_path($path);

  sub process_path {
      my $path = shift;                             # Pfad
      my $indent = shift || 0;                      # Einrueckungs-Anzahl

      $path =~ s:^[\/\\]::;                         # entf. fuehrenden (Back-)Slash

      my($super, $sub) = split /[\/\\]/, $path, 2;  # aufteilen in oberen Ordner und Pfadrest

      print '    ' x $indent, "$super\n";

      if($sub) {                                    # wenn es Pfadrest gibt
          process_path($sub, ++$indent);            # ruf mich erneut mit Pfadrest auf
          return;
          print '    ' x $indent, "$sub\n";
      }
  }