my ($x,$y,$redline);
while (<FILE>) {
   if ($redline) {
      ($x,$y) = /at location (\S+) (\S+)/;
      print "$x $y\n";
   }
   $redline = /red line/;
}