Sorry !

Your code works correct ! Thanks!!

In my code I did not have the last $x

$string =~ s:/ \* (.*?) \*/ : (my $x = $1) =~ s/[^\n]//g; $x :gsex;
                                                          ^^
[download]