my ($first_char, $word) = $_ =~ /\A (.) (\w+) /;