#!/usr/bin/perl

open (FILE1,'/Users/vgupta/code/data3') or die "can't open";

while (<FILE1>) {
    chomp;
    $input_output_str = "";
    if (/Startpoint:/) {
        $input_output_str .= $_;
        while (<FILE1>) {
            last if /Path Group:/;
            chomp;
            $input_output_str .= $_;
        }
        print $input_output_str . "\n";
        $input_output_str = "";
    }

}