my @c;
s/(...)/ push @c, $1; q[X]; /ge