open ( EXTRACT1,"< $tempdir/$extract1") || die "splitter fail : $!";