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";
}

##</code><code>##

blah.txt        tpsm.txt        tpsm_10.txt     tpsm_4.txt

##</code><code>##

test/tpsm_10.txt
test/tpsm_4.txt