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

##</code><code>##

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