#! perl -slw
use strict;

m[red line.*location (\S+) (\S+)\n]s and print "($1, $2)" 
    while $_ = <DATA> . <DATA>;

__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