$variable =~ s/((?:\Q$pattern\E)+)/$1.$1.$1/e;
  print $variable;