my ($one, $two) = grep { $_ } split (/exp/, $line);