my ($one,$two)= ( split /exp/,$line)[0,1];