#!/usr/bin/perl
$/ = undef;
while(<>)
{
s!/\*.*?\*/!!gso;
s!^\s+!!gmo;
s!^(//.*)?(\n|$)!!gmo;
print;
}