$ perl -wE'
my @array = ("foo bar baz", "FOO BAR BAZ","a b c","d e f");
for my $i (0..$#array) {
    my $string = $array[$i];
    $string =~ m/(\w{3})/g;
    say $1;
}'
foo
FOO
a b
d e