my $string = "keep;junk;keep";
my @keepers = (split ';', $string)[0,2];