my @sub_fields = $field16 =~ /\w{5}/g;
# ...