Select Code to Download

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

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

while ( <DATA> ) {
...
SMITSER||(4X115PJ)
LINDEN|VAN DER|
MOTEL GOLDEN LEEUW||<A225>