匹配连续的任意字词

#!/usr/bin/perl
@lines=("1.65abcabcdabcacdfasasasdfg31abcabc2\n","2.acacjhdcdf\n","3.8gfhgoodgoodadf\n","4.abcde123\n","5.asdawababcccccc我是我是\n");
foreach(@lines){
 if ($_=~/(.+)\1*/)
  {
  s/(.+)\1*/($1)(\U$&)/g;
  print;
  }
}