tpsm_01
tpsm_12
tpsm_23
.
.
. and so on

##</code><code>##

$pwd = $ENV{'PWD'};
$file = "$pwd/tpsm*";
if (-e $file)
{
#do something
}