Assign perl code to some ops more directly