Select Code to Download

our ($x,$y) = "Hello, World!";
*y = \substr $x, 7, 5;  # alias via glob
...

$x = "Magic, cool stuff!";
print "<$y>\n";  # prints <cool>