my @split = split(/\./,$file)[-1];