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