#!/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

##</code><code>##

#!/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 @array = ("/fd/gfree/tere/frf4545/geerg/fds/0.1/fsdf/dsakdsa/",
	     "/fd/gfree/tere/frf4545/geerg/dfds/5.9/fdsf/fdsfd/",
	     "/fd/gfree/tere/frf4545/geerg/dsad/02.44/fdsf/fdsf/");

say processString($_) for @array;

__END__

$ perl test.pl
/fd/gfree/tere/frf4545/geerg/fds/0.1
/fd/gfree/tere/frf4545/geerg/dfds/5.9
/fd/gfree/tere/frf4545/geerg/dsad/02.44