@words = split ' ', $string;

##</code><code>##

$words[2]

##</code><code>##

for($i=0;$i<scalar(@words);$i++){
$string .= $words[$i] unless $i==2;
}

##</code><code>##

for($i=0;$i<scalar(@words);$i++){
$string .= $words[$i];
}