in reply to reading unix command with open syntax error

Why using the ugly awk-pipe in the first place? 
perl -e '
for (`ps aux`){ 
   ($pid,$ppid) = (split/\s+/)[1,2];
   print "$pid $ppid\n"}
'

[download]
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom