sub remove_caps {
  $_[0] =~ tr/A-Z//d;
}