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