Select Code to Download

use strict;
use warnings;
...
    
    print "qw(", join (' ', @parts), ")\n";
}

qw(1.2.3 AAA BB AA B AA AAA BBB)
qw(AA BB AAA B A BBB)