#!/usr/local/bin/perl 

$in_filename = "graph_set.out";
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";

my $firsttime = 1;
while(<IN>){
  if(/Final graph set matrix/ .. /PLUTO4 finished/){
    if($firstime--){
      print "\nnew data set\n";
    }
    my @gset_match = ($string =~ ([A-Z]\s\d+,\s\d+\(\s*\d+\))/g);
    open (TEXT, ">>graph_set.txt") or die "Can't create graph_set.txt: $!\n";
    foreach $_(@gset_match) { print TEXT "$_\n"; }
    close TEXT; 
  }
}
close (IN);