Re^3: doubt in matching

[uva]

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.

[Samy_rio]

uva, Try the below code,

use strict;
use warnings;

$_="thhheeee good boyy";

s/((\w)\2{1,})/\($1\)/gsi;
print $_;
__END__
t(hhh)(eeee) g(oo)d bo(yy)

[McDarren]

"thhheeee good boyy" should be "t(hhh)(eeee) g(oo)d bo(yy)"

In that case, maybe you want something like this:

#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    chomp;
    $_ =~ s/(\w)(\1+)/\($1$2\)/g;
    print "$_\n";
}

__DATA__
thhheeee good boyy
the qqquick brrrowwwn fooox

Output:

t(hhh)(eeee) g(oo)d bo(yy)
the (qqq)uick b(rrr)o(www)n f(ooo)x

Cheers,
Darren :)