%inp = map { /\w{3}_(\w)/ ? ($1, $_) : () } @inp;