Just for the TIMTOWTDI of it all...

$\ = "\n";
$_ = "The quick brown fox jumped over the lazy dog";
print join q{ }
      map { substr $_, -3 }
      split /[^a-z]*\s+[^a-z]*/i;
__END__
The ick own fox ped ver the azy dog
[download]