map {(my $x= $_)=~s/.../.../ge; $x}