ex from learning Perl 5/e