Yes there is ... you need to use $File::Find::fullname in conjunction with follow => 1. See the docs for more info, but this should get you started:

perl -MFile::Find -le 'find { wanted => sub {print $File::Find::fullna
+me}, follow => 1}, shift' dir_to_scan
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)