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

##</code><code>##

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