#perl -l
use File::Find;
find sub{print $_ if -f and /\.txt$/i},@INC;