Found the solution. Just replace the following line:

next unless m/.txt$/i;

with

return unless m/.txt$/i;