Just for the fun of it...

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