my @lines = q[                X        Y];
foreach(@lines){
  s/\G {8}/warn pos();'G'/ge;
}
die qq['],@lines,q['];
__END__
0 at - line 3.
8 at - line 3.
'GGX        Y' at - line 5.