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

##</code><code>##

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