$string= join "", $string =~ /((?:$re)+)/g;