$ perl -lwe ' $string = q<a/*z*/b>;
              $string =~ s: /\* (.*?) \*/ : (my $x = $1) =~ s/[^\n]//g; $x :gsex;
              print $string;
            '
ab