print "'", pack( 'A5', $_ ), "'" for qw[ so some somewhat ];
'so   '
'some '
'somew'