Help for this page

Select Code to Download


  1. or download this
      MOTEL GOLDEN LEEUW <A225>
  2. or download this
      (MOTEL)()(GOLDEN LEEUW <A225>)
  3. or download this
      (MOTEL GOLDEN LEEUW)()(<A225>)
  4. or download this
    while ( <DATA> ) {
    if ( /^(.*)\s*($Pred_re)\s*(.*)$/ ) {
        ($name,$pred,$unknown) = ($1, $2, $3);
...
        ($name,$unknown,$pred) = /^(.*)\s*(\S*)$/;
    }
}
  5. or download this
    my $Prep_Re=join '|',('VAN DER','VAN DE','DEN','DE','VAN');

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