#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

sub processString {
    my @array = split /\//, shift;
    my @slice = splice @array, 1, 7;
    return '/' . join('/', @slice);
}

my $str = "/fd/gfree/tere/frf4545/geerg/fds/0.1/fsdf/dsakdsa/";
say processString($str);

__END__

$ perl test.pl
/fd/gfree/tere/frf4545/geerg/fds/0.1