Text this: Perl for exploring DNA /