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