@result = map /\w{3}_(\w)/, @inp;