$_ = 'david isaac glick';
s/\b(\w{3})\w+\b/$1/g;