} # real datafiles
    my ($basename) = ( $filename =~ m/^(\S+)\.txt/ ) or warn;