#!/usr/bin/perl -w
use strict;

/^t(?!est\b)\w*t$/ and print while <DATA>;

__DATA__
test
testset
tot
tesset
tt