my $filespec = "/usr/share/directory/piano_book.mp4";
my $relative = "." . $1 if $filespec =~ m{/usr/share(.*)};