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

my $words='test Buffy testament Anya tot Willow tesseract
 Faith tent';
$words =~ s/\b(t[^t]+t)\b/$1 eq "test" ? $1  : ''/ge; 
print $words;
# prints 'test Buffy testament Anya  Willow  Faith';