Select Code to Download

perl -E '
my $string = "xxxx yy zzzzz xxxx qqq xxxx yy zzzzz xxxx qqq";  
...
say "@array";
'
yy xxxx qqq yy xxxx qqq

#!/usr/bin/env perl
use strict;
...
Regex: (?^:\b(\w{2})\b)(?^:.+?\b(\w{4})\b)(?^:.+?\b(\w{3})\b)
Match: yy xxxx qqq yy xxxx qqq