my $forSplit = $newString . 'x' . $newString;
my @list = split 'x', $forSplit;