my @output; foreach my $line (@lines) { my @split = split ' ', $line; #split by whitespace pop @split if $split[0] eq '*'; #getting rid of leading * $split[0] =~ s/\.//g #remove the dots from the element push @output, $split[0] . ' ' . $split[3]; }