Select Code to Download

# hole 1: 16
perl -le 'sub h1 {(pop=~/\w+/g)[4]}'      -e'print h1"abc   ,., de f g
+ hi jk"'
...
perl -le 'sub h6 {grep{s/.//}sort map{/[aeiou]/;$&.$_}@_}' \
                            -e'$,=$";print h6 qw(book eel hi huge i pe
+a wrap)'

perl -le'sub x {$_[-1]<$_[0]?pop:shift;$#_?&x:@_}' -e'print x(-3,-5,-2
+,-8,-7)'