sub decomp_str {
   # Capture three starting with alpha, but advance only one
   [$_[0] =~ /(?=([a-z]\s*(?:\S+\s*){2}))\S+\s*/gi ]
}