#!/usr/bin/perl
open (O,'>load.txt');
foreach $i ('01' .. '68') {
    $credit = '\\N';
    @a = `grep '<td' $i.html`;
    $a[1] =~ /.*src="images\/(.*?)".*$/;
    $img = $1;
    if ($a[2] !~ /nbsp/) {
    $a[2] =~ /<td align="right" class="smalltext">Photo by (.*)<\/td>/;
    $credit=$1;
    }
    $a[3] =~ /<td>(.*)<\/td>/;
    $title = $1;
    $place="$i.00";
    $place =~ s/^0//;
print O "\\N|$img|$place|$title|$credit\n";
}
close (O);
1;