Text this: Perl by example /