File::Find will do precisely this.

use File::Find;

find(\&wanted, '.');   # execute &wanted for each file descending from
+ .

sub wanted {
   print $File::Find::name, "\n" if /\.jpe?g$/i;
}
[download]