- or download this
GetOptions(x=>my $x=1,y=>my $y);
- or download this
GetOptions('x',(my $x=1,y=>my $y));
- or download this
\($x,$y,$z)
- or download this
(\$x,\$y,\$z)
- or download this
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/) { }