my ($X,$Y,$Z) = (split/_/,$file)[2.3,4];