Question

With this sentence:

my $sent = "Mapping and quantifying mammalian transcriptomes RNA-Seq";

We want to get all possible consecutive pairs of words.

my $var = ['Mapping and',
           'and quantifying',
           'quantifying mammalian',
           'mammalian transcriptomes',
           'transcriptomes RNA-Seq'];

Is there a compact way to do it?

Answer 1

Yes.

my $sent = "Mapping and quantifying mammalian transcriptomes RNA-Seq";
my @pairs = $sent =~ /(?=(\S+\s+\S+))\S+/g;