camel perl book
[download]

camel
perl
book
camel perl
perl book
camel perl book
[download]

I made this small sub that returns the pretended list, but I would like to know your opinions on that:

sub list {
  my $words=shift;
  chomp $words;
  my @words=split /\s/, $words;
  my @longs=();
  for my $i (1..$#words-1) {
    push @longs, map { join " ", @words[$_..$_+$i]} (0..$#words-$i);
  }
  push @words, @longs,$words;
  return @words;
}
[download]

This is intented to create a query for a payperview search engine, where the records which search expression is complete in the query will be shown.

There is any better way to do this?

Thank you very much for sharing your wisdom.