#!/usr/bin/perl
# copyright 2002 yenar@host.sk
# covered by GNU LGPL

$f = shift;
open (IN, $f);
for (<IN>) {
	$in .= $_;
}
close IN;
$_ = $in;
s!/\* {{{ \*/[ \t]*(.*?)[ \t]*/\* }}} \*/!$1!gsm;
#s!/\* {{{ \*/!!gsm;
#s!/\* }}} \*/!!gsm;
#s![ \t]*/\* {{1}{{ \*/[ \t]*!!g;
#s![ \t]*/\* }}{1}} \*/[ \t]*!!g;
print "$_";
