Postorder

Score: 55.11 (pass)

#!perl -l
$y=pop;$_=pop;$y=~s/$_(.*)/
$1
$_/for/./g;print< $y>

Score: 55.11 (pass)

#!perl -l
$}=pop;$_=pop;$}=~s/$_(.*)/
$1
$_/for/./g;print< $}>

Score: 55.16 (pass)

#!perl -l
$_=pop;$ARGV[0]=~s#.#s/($&)(.*)/
$2
$1/#eg;print/./g

Score: 56.10 (pass)

#!perl -l
$_=pop;for$x(pop()=~/./g){s/$x(\w*)/
$1
$x/}print/./g

Score: 56.10 (pass)

#!perl -l
$y=pop;$_=pop;$y=~s/$_(\w*)/ $1 $_/for/./g;print< $y>

Score: 57.12 (pass)

#!perl -l
$_="@ARGV";s/($&)(\w*)/ $2 $1/while s/^\w//;print/\w/g

Score: 60.13 (pass)

#!perl -l
$_="@ARGV";1while s/^(\w)(.*)\1(\w*)/$2 $3 $1/;print/\w/g

Score: 62.14 (pass)

#!perl -l
$_="@ARGV";1while s/^(\w)(.*)\1(\w*)/$2 $3 $1/;s/ //g;print