use warnings;
use strict;

use File::Find::Rule;

my $dir = 'test';

my @files = File::Find::Rule->file
                            ->name('tpsm_*')
                            ->in($dir);

for (@files){
    print "$_\n";
}