my $filespec = '/usr/share/directory/piano_book.mp4';
my @parts = split /\//, $filespec;
my $relative = './' . join '/', splice @parts,-2,2;