use v5.8;

$s = "abcdef"; # or initialize it yourself
($s, $_) = (undef, $s);

$s.=???!??:$&while/./g;

print "$s\n";