#!/usr/bin/perl -w

use strict;

my $output_file = $ARGV[1];
my $filename = $ARGV[0];
my $file_buf = "";

open (IN, "< $filename");
my $todo = 0;
while (<IN>)
  {
    if($todo == 0) {
      if($_ =~ m/(Requires.*)/) {
        $todo = 1;
      }
      else {
	$file_buf .= $_;
      }
    }
    elsif($todo == 1) {
      if($_ =~ m/.*\*\//) {
	$todo = 0;
	$file_buf .= $_;
      }
    }
  }
close (IN);

open (OUT, "> $output_file");
print OUT $file_buf;
close (OUT);
#print STDOUT $file_buf;
