local $_ = 'computer';

my @results;
pos() -= 2, push @results, $1  while /(...)/g;

print "@results", $/;