#!/usr/bin/perl

# http://perlmonks.org/?node_id=1193719

use strict;
use warnings;
use File::Find;
use Path::Tiny;

my $directory = 'some/test/';

find sub { my %u; -f and /\.txt$/ and
  path($_)->edit_lines( sub { $_ x= !$u{$_}++ } ) }, $directory;