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

Well, lame is lame, but to make it just a little less so, I would at least

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