<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#! /usr/bin/perl

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

$x =~ s/World/Earth/;
print $x;
</pre></body></html>