my @list = unpack( '(a)*', $string );