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