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

##</code><code>##

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

##</code><code>##

\($x,$y,$z)

##</code><code>##

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

##</code><code>##

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/) { }