MOTEL GOLDEN LEEUW <A225>

##</code><code>##

  (MOTEL)()(GOLDEN LEEUW <A225>)

##</code><code>##

  (MOTEL GOLDEN LEEUW)()(<A225>)

##</code><code>##

while ( <DATA> ) {
    if ( /^(.*)\s*($Pred_re)\s*(.*)$/ ) {
        ($name,$pred,$unknown) = ($1, $2, $3);
    } else {
        ($name,$unknown,$pred) = /^(.*)\s*(\S*)$/;
    }
}

##</code><code>##

my $Prep_Re=join '|',('VAN DER','VAN DE','DEN','DE','VAN');

while ( <DATA> ) {
    chomp;
    if ( /^(.*)\s+($Prep_Re)\b\s*(.*)$/ ) {
        ($name, $prep, $other) = ($1, $2, $3);
    }
    elsif ( /^(.*)\s+($Prep_Re)\s*$/ ) {
        ($name, $prep, $other) = ($1, $2, "");
    }
    elsif ( /^(.*)\b\s+(\S+)$/ ) {
        ($name, $prep, $other) = ($1, "", $2);
    }
    else {
        ($name, $prep, $other) = ($_, "", "");
    }
    print "$name|$prep|$other\n";
}

__DATA__
WINTER DE   <A240>
ZANDEN VAN DER     ŤAť
JENSEN  230
WOODHEAD  <D>
BRINK    130,-
HEYDIER DEN  <240>
SMITSER  (4X115PJ)
LINDEN VAN DER
MOTEL GOLDEN LEEUW <A225>
__END__
WINTER|DE|<A240>
ZANDEN|VAN DER|ŤAť
JENSEN||230
WOODHEAD||<D>
BRINK||130,-
HEYDIER|DEN|<240>
SMITSER||(4X115PJ)
LINDEN|VAN DER|
MOTEL GOLDEN LEEUW||<A225>