Perl - 97 characters
This is what I came up with in Perl. Went through a few different ways to do it but this seemed shortest from what I can think of so far.
use List::Util 'shuffle';sub r{($b,@w)=split//,$_[0];$e=pop(@w);return$b.join('',shuffle@w).$e;}