sub first_character_matches {
  return( ((lc shift) ^ (lc shift)) =~ /^\0/ );
}