use strict;
use reader;
#$/= "\n\n\n";
while(do{local $/="\n\n\n"; $_=<>}){
    my ($filename)=/^(\S+)/;
    my $text=reader::firstline($filename);
}