my ($one, $two) = split (/exp/, $line, 2);