my @ARRAY = split(/[\r\n]+/, $ENTIRE_FILE_CONTENT);

##</code><code>##

for (my $i = 0; $i < @ARRAY; $i++)
{
  print "\n$ARRAY[$i];";
}

##</code><code>##

for (my $i = 0; $i < @ARRAY; $i++)
{
  if ($i + 3 < @ARRAY) { print "\n$ARRAY[$i + 3]"; }
}

##</code><code>##

my $STOP = @ARRAY - 3;
for (my $i = 0; $i < $STOP; $i++)
{
  print "\n$ARRAY[$i + 3]";
}

##</code><code>##

my $FOUND = index($ARRAY[$i], 'solar winds');
if ($FOUND >= 0) { print "\nFOUND SOLAR WINDS IN LINE $i"; }

##</code><code>##

if ($ARRAY[$i] eq 'solar winds') { print "\nLINE $i MATCHES SOLAR WINDS"; }

##</code><code>##

my $STOP = @ARRAY - 3;
for (my $i = 0; $i < $STOP; $i++)
{
  if (index($ARRAY[$i], 'solar winds') >= 0)
  { $ARRAY[$i + 3] =~ s/country/place/; }   # Use a regex to replace country...
}