#!/usr/local/bin/perl 

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

my $dsno;
while(<IN>){
  if(/Final graph set matrix/){
    print "\n", $dsno++, " data set\n";
  }
  if(/Final graph set matrix/ .. /PLUTO4 finished/){
    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);