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