#!/usr/local/bin/perl 

my ($in_filename, @records) = 'graph_set.out';
{
    local $/ = ' PLUTO4 finished';
    my $start = ' Final graph set matrix';
    open IN, '<' $in_filename or die "Can't open $in_filename: ", $!;
    @records = map {
        substr $_, index( $_, $start) + length( $start}
    } <IN>;
    chomp @records;
    close (IN);
}