#! perl -slw
use strict;

while( <DATA> ) {
    chomp;
    if( m[/\*] ) {
        $_ .= <DATA> until m[\*/];
        s[\s?/\* .+? \*/\s?][]smg;
    }
    print join '-', split '\|';
}