$rect =~ s{ \0\a\0       } ''xmsg;
$rect =~ s{ [ ]+ \z      } ''xms;
$rect =~ s{ .{$width} \z } ''xms;

##</code><code>##

perl -MConfig -MWin32::Console -E "say $Config{version}; say $Win32::Console::VERSION"

5.14.2
0.10