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