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