First of all, what do you consider a word? Is "isn't" a word, or is it two? What about words with hyphens?

Second, what exactly do you mean by "putting it back"? If you first take it out, then put it back, you have back the original thing, don't you? Or do you put it back elsewhere?

Third, what submit button are we talking about? Perl doesn't have any submit button, so, what do you mean?

Having said that, assuming you consider a word to be a sequence of \w chars, and any maximized sequence to be a word, this will remove the third word from a string:

    $str =~ /(\w+\W+\w+\W+)\w+/$1/
[download]

Abigail