#! perl -nlw
die "$_" unless m,^(\./)?([^/]+)\.log$,;
print$2;