my $pad = ' ' x $wide;
...
$_ = substr($_ . $pad, 0, $wide);
print $_, "\r";

##</code><code>##

printf "%-${wide}.${wide}s\r", $_;