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

##</code><code>##

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