sub find_text_files {
    my $dir = shift;

    my @text_files;
    my $tf_finder = sub {
        return if ! -f;
        return if ! /\.txt\z/;
        push @text_files, $File::Find::name;
    };
    find( $tf_finder, $dir );

    return @text_files;
}