in reply to Why does this code think I'm trying to use symbolic references?

Indirect object notation for print strikes back: 
$ perl -MO=Deparse,-p 1.pl
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
(my $i = 3);
(my $n = 1000);
loop: print($n 4);
print($n 8);
print($n 12);
print($n 16);
($n += 16);
((--$i) and (goto loop));
1.pl syntax OK

[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^2: Why does this code think I'm trying to use symbolic references?
by BrowserUk (Patriarch) on Jun 12, 2016 at 21:02 UTC

    Thanks!

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
    In the absence of evidence, opinion is indistinguishable from prejudice. Not understood.
[reply]

In Section Seekers of Perl Wisdom