Start 

comments

1 2
3 4
5 6
7 8

quotes

End 

Start 

comments

8 7
6 5
4 3
2 1 

quotes

End 

##</code><code>##

use GD::Graph::linespoints;

my $data_file = "retestfileIN.txt";
open DATA, "$data_file" or die "can't open $data_file $!";
 undef $/;
 $_ = <DATA>;
  close DATA;
$/ = "\n"; 

for my $r (0 .. 1) {
if (/comments(.*?)quotes/sg) { 
	my $tempvar = $1;
	$tempvar=~ s/^\s+|\s+$//g; 
	
	@alltemp = split(/\n/,$tempvar);

	foreach my $line (@alltemp) {
	$line =~ /(\d)\s(.*)/g;
	push(@first, $1);
	push(@second, $2);
	push (@data, ([@first, @second]));
}
}


my $g = GD::Graph::linespoints->new(500,300);  # graph code
  
  $g->set( 
      x_label           => 'X Label',
      y_label           => 'Y label',
      title             => 'Some simple graph',
      y_max_value       => 10,
      y_tick_number     => 8,
      y_label_skip      => 2
  ) or die $g->error;
 
  my $format = $g->export_format;
  open (IMG, ">squot$r.$format") or die $!;
  binmode IMG;
 
  print IMG $g->plot(\@data)->$format();  # end graph code

}