alias money { return $regsubex($1,/^(\d+)(\.\d+)?$/,$bytes(\1,b)\2) }
or
alias money { if ($regex($1,/^(\d+)(\.\d+)?$/)) return $bytes($regml(1),b) $+ $regml(2) }