#! /usr/bin/perl

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

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