use warnings;
use strict;

my $str1 = q/It is a guide to action which ensures that the military always obey the commands of the party./;
my $str2 = q/It is a guide to action that ensures that the military will forever heed Party commands is a guide./;

my $n = 0;
while ( $str1 =~ /(?=(\S+\s+\S+\s+\S+))/g ) {
    my $t1 = $1;
        print "$t1\n";
        $n++;
      }

print "No of matching is : $n\n";

##</code><code>##

It is a
is a guide
a guide to
guide to action
to action which
action which ensures
which ensures that
ensures that the
that the military
the military always
military always obey
always obey the
obey the commands
the commands of
commands of the
of the party.