Select Code to Download

my $ROOT_PATH = '/var/media/';
my $folder = $ROOT_PATH . join '/', $r->uri =~ m/^(..)(..)(..)/;

# Folder is '/var/media/45/62/4a'