for (grep {$_->is_early_tired() && $_->requires_coffee()} @cb_monks) {
  do {
  $_->consume(Hot::Coffee->new($_->get_coffee_prefs()));
  while ($_->more_coffee_wont_hurt()); 
}
[download]

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}
+:{print"- $1"}&&`rm $1`;print"\n";}
[download]