my $sentence = qq(Hello World);
my $sub2 = $sentence;
$sub2 =~ s/World/Earth/;
print "$sub2";