$_ = sprintf '%-*.*s', $len, $len, $_; [download]
In reply to Re^2: A Procrustean Statement by YuckFoo in thread A Procrustean Statement by Zaxo