#!/usr/bin/perl
# extract C-style comments

$x = (join '', <>);
while ($x =~ /(\/\*.*?\*\/)/sg) {
    print $1, "\n";
}