In which case a regex is what you need.

($dataSet) = $dir =~ m|/(APR\w\w-\w{4}-\w{4}).*?$|;
[download]

Note that \w matches A-Aa-a0-9_. If you need a subset of that range (upercase only for example), replace the \w's with something like [A-Z0-9].