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

##</code><code>##

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