sub decomp_str {
    my $str = shift;
    $str =~ s/\s([a-z])\s/$1;$1/gi;
    [ split /;/, $str ];
  }