Re^3: Divisors of a number

[Athanasius]

Nice! I particularly like the $%%$_ construct. But why so verbose?

 1:49 >perl -wE"$%%$_||say for 1..($%=pop)" 36
1
2
3
4
6
9
12
18
36

 1:49 >

Ten characters strokes saved. :-)