#!/usr/bin/perl

use strict;
use warnings;

my $line = '';

while (<>) {
  $line .= $_;
if($line =~ /solar winds/) {
{
if( $line =~ /country/) {
$line =~  s/country/place/;
    }
}
elsif($line =~ /solar power/) {
{
if( $line =~ /country/) {
$line =~  s/country/place/;
    }
}
$line = '';
}