Select Code to Download

    my ($success, $failure) = part { /^ERR/ } <LOG>;

use List::Part;
my @candidates = qw( !britney !paris bettie patti );
...
print "hot: ", Dumper( $hot ), "\n";
print "not: ", Dumper( $not ), "\n";
print "stuff: ", Dumper( \@candidates ), "\n";