Infix to RPN

Score: 116.48 (pass)

#!perl -p
use
overload
nomethod,sub{bless[(map"@$_",@_[0,1]),pop]};y/ 	//d;s/(?

Score: 116.54 (pass)

#!perl -pl
use
overload
nomethod,sub{bless[(map"@$_",@_[0,1]),pop]};y/ 	//d;s/(?

Score: 117.52 (pass)

#!perl -pl
use
overload
nomethod,sub{bless["$_[0][0] $_[1][0] ".pop]};y/ 	//d;s/(?[0]

Score: 117.66 (pass)

#!perl -pl
use
overload'""',sub{$_[0][0]},nomethod,sub{bless["@_"]};y/ 	//d;s/(?