$foo{$bar}
$ref->[12]->{"susie"}
*****
$var = 'myvar';
$sym = mypack::$var;
*****
$var = 'myvar';
$sym = "mypack::$var";
*****
$BADREF = undef;
process $BADREF 1,2,3;
$BADREF->process(1,2,3);
*****
*foo += 1;     # ERROR
*****
$foo = *foo;   # make a "fake" glob value
$foo += 1;
*****
print q(The character '(' starts a side comment.)
*****
chmod 777, $filename
*****
{
    local $^W = 0;
    eval "format NAME =...";
}
*****
if ($foo = 123)
*****
if ($foo == 123)
*****
sub mod { $_[0] = 1 }
mod(2);
*****
my $foo, $bar = @_;
*****
my ($foo, $bar) = @_;
*****
open FOO || die;
*****
open(FOO || die);
*****
open FOO || die;
*****
{
    local $^W = 0;
    eval "sub name { ... }";
}
*****
$[ = 0;
$[ = 1;
...
local $[ = 0;
local $[ = 1;
...
*****
$one, $two = 1, 2;
*****
($one, $two) = (1, 2);
*****
$array = (1,2);
*****
$array = [1,2];
*****
rand + 5;
*****
rand() + 5;
*****
rand(+5);
*****
open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
while (<stdin>) {
    print STDOUT;
    print OUT;
}
close OUT;
*****