sub words {
  return [
    map {
      { # substitute these
        'DUTCH'       => 'NETHERLANDS',
        'GERMANY'     => 'DEUTSCHLAND',
        'AUST.'       => 'AUSTRALIA',
      }->{$_}
        or
      $_
    }
    grep {
      !{ # skip these
        'BANK'        => 1,
        'CORP'        => 1,
        'GOVERNMENT'  => 1,
        'GOVT'        => 1,
        'LIMITED'     => 1,
        'LTD'         => 1,
        'NPV'         => 1,
        'COM'         => 1,
      }->{$_}
    } split /\s+/, shift ];
}