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

print join( "\n", split( //, $bin_str ) );