#! /usr/bin/perl

$x = "Hello World, the World is my oyster. \n";
print $x;

$x =~ s/World/Earth/g;
print $x;