my $a;
$a = qq(abc$a);
my $b = qq(123$a) . $a . qq(456$a) . $a . '789'
