use File::Find::Rule qw( );

my $txt_count = () = File::Find::Rule
                     ->file()
                     ->name( '*.txt' )
                     ->in( $dir );