Select Code to Download

GetOptions(x=>my $x=1,y=>my $y);

GetOptions('x',(my $x=1,y=>my $y));

\($x,$y,$z)

(\$x,\$y,\$z)

my $txt="Foo bar";
(my $clean=$txt)=~s/oo/u/g;
...
open my $fh,"File" or die "File $!";

if (my ($x,$y,$z)=/A(..)(..)(..)Z/) { }