#!/usr/bin/perl
@images=<>;
chomp for @images;
print "\n\n";
while (@images) {
@three = splice @images, 0, 3;
for (@three) {
($class, $img) = split m|/|, $_;
print qq{
\n};
}
print qq{};
while (@three < 3) {push @three, ' '}
for (@three) {
s|.*/||;
s/\..*//;
s/(.*)_(.*)/$2 $1/;
print qq{| $_};
}
print qq{ |
\n
\n};
}
print "\n\n";