comment on

This is what the code suggested:

use warnings;
use strict;

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

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

print "No of matching is : $n\n";
[download]

And here is the output for that:

It is a
t is a
is a guide
is a guide
s a guide
s a guide
a guide to
guide to action
uide to action
ide to action
de to action
e to action
ensures that the
nsures that the
sures that the
ures that the
res that the
es that the
s that the
that the military
hat the military
at the military
t the military
[download]

I have downloaded the code properly.

In reply to Re^6: count the maximum no.of occurence by sarvan
in thread count the maximum no.of occurence by sarvan

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Welcome to the Monastery
	PerlMonks