#!/usr/bin/perl
open (my $fin, "<input.txt") or die;
open(my $fout, ">output.txt") or die;

my $line = do
{
    local $/ = undef;
    <$fin>;
};
my $temp;
while($temp ne $line)
{
    $temp = $line;
    $line =~ s/\/\*([^\/]|\/[^\*])*?\*\///g;
}
print $fout $line;

close($fin) or die;
close($fout) or die;