next unless m|^.*.txt\z|s;

According to this regex a filename without extension with at least 4 characters ending in txt matches. To match .txt files:

To find out the directory your are looking at, use $File::Find::dir.

— Arien