#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#

#!/usr/bin/perl

while (<>) {
  chomp;
  my ($chap, $old, $new, $page) = split;
  next if $new !~ /\S/ || $new =~ /^\d+[ab]?$/;
#  print "$old -> $new\n";
  symlink $old, $new or warn "$old -> $new : $!";
}