my $string = 'some/very/varied_length/string';

my $subs = substr( $string, 0, length($string) - 6 );
say $subs;