sub remove_caps;
  if (1 != @_) {
    return map {remove_caps($_)} @_;
  }
  my $str = shift;
  $str =~ tr/A-Z//d;
  return $str;
}