Guessing at the definition of the problem based on your examples, here's one simple way:

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

Hugo