$s="According to a researcher at an English university";
print qq{@{[map{@:=split//;@:[1..$#:-1]=reverse@:[1..$#:-1];join"",@:}$s=~m/(\w+)/g]}\n};