Select Code to Download

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

">/*x*/<"   is converted in ">1<" instead of "><"
">/*x\nx\nx*/<"  is converted in ">3<" instead of ">\n\n<"