foreach my $line (@results) { my ($first, $second, $third) = split(/::/, $line); print qq($first $third); } #### page 1 description 1 page 2 description 2 page 3 description 3
## page 1 description 1 page 2 description 2 page 3 description 3