Select Code to Download

while (<DATA>) {
  print if /red line/..././;
...
at location 2.67 4.56 
The red arc is found 
at location 2.5 4.5

  print if (/red line/..././) =~ /E/;