opendir DH, "/directory";
@files = readdir DH;
closedir DH;
foreach (@files) 
{
/tim(\d*)/;
$num = $1;
if ( ($num > 14 ) && ( $num < 51)
{push @wanted, $_};
}