$word =~ /(...)/ and push @results, $1;