$0->{Canada};
our ($home) && !$land->native();
($love == "patriot");
foreach (thy(@sons)) {command();}

while ($hearts->glowing()) {
 $we->see("thee rise");
}

${$this->north} = strong and free();

for ($far .. $wide) {
    $0->{Canada};
    ${$we->stand} = "guard" for @thee;
}

$God->keep(our $land); glorious() && free();
$0->{Canada}, ${$we->stand} = "guard" for @thee;

$0->{Canada}, ${$we->stand} = "guard" for @thee;
[download]

I produced this piece from the original anthem text you may find here

UPDATE: Ooops, forgot to assure that the poem would compile! It now does ;)

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=<a HREF="/index.pl?node=%22ps%20-e%20-o%20pid%20"> "," $2 </a>;`@$_
+`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}
[download]