Select Code to Download

sub elem {
    my $self = shift;
...
      if ($arrow eq "->" and $lhs !~ /^[$@%&(*]/);
    return "$lhs$arrow";
}

$ perl -I. -MO=Deparse -e '(do $foo)->{$bar}' 
(do($foo))->{$bar};
...
$ perl -I. -MO=Deparse -e '$foo->{$bar}' 
$$foo{$bar};
-e syntax OK