Help for this page
#!perl -slw use strict; ... print for @lines;
__DATA__ c ... niverse cn=Perl Monks,ou=Bedchambers,ou=Monastery,c=Univers e