Select Code to Download

use strict;
use warnings;
...
    ( my $def_grp = $fields[1] ) =~ s/\s*\(\s*//;
#etc.
}

use strict;
use warnings;
...
(defined $editor) || die "I can't determine who you are, so you can't 
+access this area.";

#use editor later throughout the program