#!/bin/perl

while (<STDIN>) {
  chomp($_); $line=$_;
  $line =~ s/,//;
  $line =~ s/\(.*\) [ ]*$/\1/;
  if($line !~ /Source files for which/) {
    $l = length($line);
    if($l > 0) {
      $ix=index($line, " ");
      if($ix > 0) {
        #multiple lines in line
        @a=split(" ", $line);
        foreach $fi ( @a ) {
          $fi =~ s/,//;
          print("$fi\n");
        }#foreach
      } else {
        #single file in line
        print("$line\n");
      }
    }
  }
}