c:\@Work\Perl\monks>perl -wMstrict -le
"my $c = qq{foo /* bar \n baz \n boff \n */ fum};
 print qq{<<$c>>};
 ;;
 $c =~ s{ /[*] (.*) [*]/ }{ $1 =~ s{[^\n]}{}xmsrg }xmsge;
 print qq{[[$c]]};
"
<<foo /* bar
 baz
 boff
 */ fum>>
[[foo


 fum]]