while (@data2) {
    $_ = shift @data2;

    if( m[/\*] ) {
        $_ .= shift @data2 until m[\*/] or ! @data2;
        s[ \s? / \* .+? \* / \s? ][]smgx; 
    }
}