my $bin_str = unpack( "b*", $string );

print join( "\n", $bin_str =~ /(.)/g );