{
  local $/;
  local $_ = <DATA>;
  s/,/\n/g;
  s/-/ - /g;
  print
}

##</code><code>##

open P, ' | perl -laF, -ne "s/-/ - /, print for @F" ';
print P <DATA>;
close P;