my $str1 = $a . $x . $b . $x . $c;
my $str2 = join $x, $a, $b, $c;