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