#!/usr/bin/perl -w

use strict;
use warnings;
use File::Find;
use Cwd;
my $dir = getcwd;

my %hashTS;

find(&wantedTS, "$dir");

sub wantedTS()
{
    if ($File::Find::name =~ /(.*)(\.ts)(\.txt)$/)
    {
        $hashTS{$File::Find::name}++;
    }
}