http://www.perlmonks.org?node_id=971277


in reply to accessing a part of a string

You want everything but a part of the string? You could play with this and alter it as needed: 
my $string = 'some/very/varied_length/string';

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

[download]
Don't forget to add the OFFSET portion of substr.

In Section Seekers of Perl Wisdom