$_="computer";
s/(.)(.)(.)(?=(.)(.))/$1$2$3$2$3$4$3$4$5/g;
print join "\n",/(...)/g;