Text this: Higher-order Perl :