Make sure Routine.perl makes an EVALable string

E.g. (sub {1+1}).perl would produce something like
'sub() { #`(Sub|4345502344) ... }', which will parse sub() as a
function.  This fixes Routine.perl to be more like
'sub () { #`(Sub|4345502344) ... }'.