Hi uva, Try this,

$_="theeee";

if (m/\w*(\w+)(\1{1,})/si){
    print $&;
}
[download]

You are missing "}" in the pattern.

The /i flag only does something is you have a literal alphabetic character in the pattern. The /s only does something if you have a dot, . in the pattern. The sequence (\1{1,}) is really just \1+. :)

$_="theeee";

if( m/\w*?(\w+)(\1+)/ )
    {
    print "\$&: $&\n\$1: $1\n\$2: $2\n";
    }
[download]

I'm not sure what's supposed to end up where, but the pattern /\w*(\w+)(\1+)/ puts must of the stuff into the first part, \w*, because it's greedy and Perl is going to back track only as far as it needs to so it satisfies that next things. If you want more stuff in the ending parts, you have to make the first part non-greedy.

$_="theeee";

if( m/\w*?(\w+)(\1+)/ )
    {
    print "\$&: $&\n\$1: $1\n\$2: $2\n";
    }
[download]

--
brian d foy <brian@stonehenge.com>
Subscribe to The Perl Review

thanks for the reply ,actually i want to do the following thing:: any consecutive letters in the word should be enclosed in brackets.for eg: "thhheeee good boyy" should be "t(hhh)(eeee) g(oo)d bo(yy)" . the no of consecutive letters may differ in the word.