my $keep = ( split /\s+/, $string )[2];