$s = 'Two words';
$s =~ s[(^\S+)(\s.*\s)(\S+$)][$3$2$1]; 
print $s;
#Two words