print pack( 'A6', $_ ) for 'this', 'and that';

this
and th