s1=invphr(s)

function s1=invphr(s)

s = [' ' s ' '];
ind = findstr(' ', s);
s1 = [];
for i = length(ind)-1:-1:1
  s1 = [s1 [s(ind(i)+1:ind(i+1))]];
end;
s1 = s1(1:length(s1)-1);