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

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]