Select Code to Download

Select or download this
```
.say for =$fh;
```
Select or download this
```
print while <$fh>;  # assuming $\="\n"
```

pugs> sub postfix:<!> (Int $n) { [*] 1..$n }
undef
...
24
120
undef

Select or download this

From: Abigail <abigail@abigail.be>
Subject: Re: I find the perl syntax easier than python
...
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> (
+) -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> (
+) -> ()

Select or download this

From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: I find the perl syntax easier than python
...
sub addprint (*@num) { say [+] @num };

Select or download this

From: Abigail <abigail@abigail.be>
Subject: Re: I find the perl syntax easier than python
...
$\ = $"; $; = $$; END {$: and print $:} $SIG {TERM} = sub {$ := $_}; k
+ill 15 =>
fork and ($; == getppid and exit or wait) foreach qw /Just another Per
+l Hacker/

Select or download this

From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: I find the perl syntax easier than python
...

But mine is more elegant.

Select or download this

From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I find the perl syntax easier than python
...
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,

Select or download this

From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I find the perl syntax easier than python
...
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,