sub standard_fill{ return substr $_[ 0 ] . ' ' x 100, 0, $_[ 1 ] }